***************************************************************** 



** 7*748 V3.0 *********************************************** 

** ** 

** USER I.D.- 6R2DFUE TSN - 3078 ** 

** ACCT. NO.- KUHLWEY ** 

** FILENAME - NAC80.LIST ** 

** MAILING ADBR.- BOX tf ** 

** BATE - 02/10/78041 TI*E-10:06t39 ** 

** ** 
************************************************************************************* 



************************************************************************************************************************************ 
************************************************************************************************************************************ 
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ERRORS = PAGE 1 



0050 



9100 



0080 



0001 
0002 
0004 
0008 
0010 



0020 

0Q40 

0080 



0001 
0002 
0004 
0008 
0010 
0080 



; 2. F I L E 

;SYl012-27/10/77 - 0530 HOUR 

VERSN EQU 120Q ; VERSION =W A Z 

z HP - 21 MX 





i 



COMMON EQUATES - CK34 - 6/10/76 - 1315 MRS, 



FTRAM EQU 11040QQ ;FAST RAW LOWER LIMIT 

J*************************************** 

; KBOCSW - KEYBOARD DATA COMM SWITCHES * 
• *************************************** 



FLDUP EQU 20QQ 



; HALF/ FULL DUPLEX 



;************************************** 

; KBJMPR - KEYBOARD INTERFACE JUMPERS * 
•A************************************* 



JUMPERS SENSED AS 0* WHEN INSERTED 



ALL JUMPERS ARE NORMALLY INSERTED 



CNDIS EQU 001 Q 
SLDIS EQU 0026 



LNVRP EQU 0040 



PSSTR EQU G10Q 



LFPOS EQU 200 

* 

* 

i 



FTSND EQU 400 
HDSHK EQU 100Q 



D2SND EQU 200Q 

m 

i 



; KBJMP2 - SECOND 

***************** 



ATTRM 


EQU 


1Q 


CRTRM 


EQU 


2Q 


NTEST 


EQU 


4Q 


ETWRP 


EQU 


10Q 


PNTAL 


EQU 


20Q 


DJMPO 


EQU 


2006 



**************** 
K6JMP3 - THIRD 



; CONTROL CODE DISABLE 

<Q=DISA8LED) 
;SPOW LATCH DISABLE 

(0=DISABLED) 
;COLUMN 80 AUTO CR # LF 

CO=ENABLED> 
•PAGE MODE STRAP 

<0=LINE-FIELR MODE> 
;LINE FEED POSITION 

(0 = POSITION LINE FEED 
AT START OF NEXT I/O 
READ 
1 « PUT LINE FEED AT END 
OF RECORD} 
;9600 BAUD DATACOM SHIFT 

(0=9600 BAUD FOR ESC,E> 
;BLOCK TRANSFER HANDSHAKE 
(0 = FOLLOW DC2SND SETTING 
1 • SEND DC2 BEFORE DATA! 

(0 - SEND DC2 ON ENTER 

AND FUNCTION KEY IN 
BLOCK MODE 
1 = INHIBIT ALL DC2 
HANDSHAKE) 

************************** 

SET OF KEYBOARD JUMPERS * 
************************** 

;AUTO TERMINATE ON "ENTER* 
; CLEAR TERMINATOR ON TRANSM I 
; INHIBIT TERMINAL SELF-TEST 
^INVERT SENSE OF EDIT WRAP 
;SEND ALL CODES TO PRINTER 
;DATA COMM JUMPER 
************************* 

SET OF KEYBOARD JUMPERS * 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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0001 
0002 
0004 
0008 
0010 

0020 

0040 

0080 



0001 
0002 
0004 
0008 
0010 
0020 



0001 
0002 
0004 



0003 



0000 

0001 
0002 
0010 
0020 
0040 

0080 



0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 



0001 



;***************************************** 



DJHP1 
DJMP2 
DJMP3 
DJMP4 
NDCST 

SETCH 

CEKCC 



EQU 
ECU 
EOU 
EQO 
EOU 



10 
2Q 
46 

10ft 
2 0«l 



;DATA COMM JUMPERS 



# • 



# • 



ECU! 400 
EQU 100Q 



FCPTV EOU 200Q 



; INHIBIT DATA COMR SELF-TEST 

(0 - DISABLED) 
;TURN ON "CH" CONTROL LINE 

(0 « OFF, 1 * ON) 
;MONITOR CC CONTROL LINE 

C1 » ENABLED) 
; FORCE PARITY ON/NO IN CHECK 

C1 = ENABLED) 



• ************************ 
; CMFL6S - COMMON FLA6S * 

- ************************ 

BKTR6 EOU 10 ; BLOCK TRANSFER TRIGGER 

ISWRP EOU 20 ;INSERT WITH WRAP AROUNO 

FCRST EOU 40 ;FORCE FULL TERMINAL RESET 

DFSKY EOU 100 ;DEFINE SOFT KET MODE ENABLE 

RMSET EOU 200 ;REMOTE MODE ENABLED 

RWMDE EOU 400 ;TERMINAL IN RECEIVE MODE 

; *********************** 

; ERRFLG - ERROR FLAGS * 

; *********************** 

OMERR EOU 10 ;DATACOM (1 * ERROR) 
TSTOK EOU 20 ;SELF-TEST (0 = ERROR) 
LRCHK EOU 40 ;LOADER CHECKSUM CO = ERROR) 

; ************************** 

; INTFLG - INTERRUPT FLAG * 
; ************************** 

TRINT EOU 3 ;TIMER INTERRUPT 

i 
J*********************************** 

; PRCCTL - PROCESSOR CONTROL FLAGS * 
************************************ 

TIACK EOU 00 ACKNOWLEDGE TIMER INTERRUPT 

CBIT 1 OFF) 
10 ;SET TIMER ON 
20 ; RE-ENABLE TIMER INTERRUPT 
200 ; DISABLE DATA COMM INTERRUPT 
400 ; DISABLE TIMER INTERRUPTS 
1000 ;POLL CTU INTERRUPTS 
SET TO ZERO FOR ROM VERSION *V*V*V*V* 
2000 ;DISABLE CD/ENABLE (0) ROM 

;********************************* 

; MDFLG1 - TERMINAL MODE FLAGS 1 * 
********************************** 

;DISPLAY FUNCTIONS ENABLED 
;INSERT CHARACTER ENABLED 
;MEMOR¥ LOCK ENABLED 
; FORMAT MODE ENABLED 
;EDIT MODE ENABLED 
;SELECT MODE ENABLED 
; RECORD MODE ENABLED 
; FOREIGN MODE ENABLED 
;********************************# 

; MDFLG2 - TERMINAL MODE FLAGS 2 * 

;***** **************** ************ 

CPSLK EOU 10 ;CAPS LOCK ENABLED 



TMRON 


EOU 


TMIEN 


EOU 


DIOFF 


EOU 


TIOFF 


EOU 


POLL 


EOU 


;V*V*V*V* 


STROM 


EOU 



DPFNC 


EOU 


10 


ISCHR 


EQU 


20 


MMLOK 


EOU 


40 


FRHAT 


EOU 


100 


EDIT 


EOU 


200 


SLECT 


EOU 


400 


RCORD 


EOU 


1000 


FORGN 


EOU 


2000 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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0002 
0004 
0008 
0020 



OOOA 
0008 



9165 
9168 

FFFF 
OOFF 
FFOO 

FFFE 
FFFD 
FFFC 
FFFB 
FFFA 
FFF9 
FFF8 
FFF7 
FFF6 
FFF5 
FFF4 
FFF3 
FFF1 
FFEF 
FFEt> 
FFEB 
FFE9 
FFE7 
FFE5 
FFE3 
FFE1 
FFEO 
FFDE 
FFDD 
FFBC 
FFBB 
FFDA 
FFD9 
FFD8 
FFD7 
FFD5 
FFD4 
FFD2 
FF01 



FFDO 



BKRDE 


EttU 


29 


ATOLF 


EttU 


4Q 


RMQTE 


EttU 


1QQ 


UBSR 


EQU 


40Q 



;BLOCK MODE ENABLED 
;AUTO LF ENABLED 
;REMOTE ENABLED 
;MRITE-BACKSPACE-READ NODE 
J********************************************** 
; RADIX - BASE OF INPUT PARAMETER FOR ESC SEQ * 

-********************************************** 

DCRDX EGO 10 ;DECIMAL NUMBERS 

OTRDX EttU 8 ;OCTAL NUMBERS 

■ 

• it****************** 

; COMMON VARIABLES * 

; ******************* 

ITVEC EQU FTRAM+1450 ^CENTRAL INTERRUPT VECTOR 

SNVEC EQU ITVEC+3 ; F0REI6N TERMINAL DISPLY SCA 

CMMON EttU 
CBASE EttU 
CSTOR EttU 



OSPST 
TNTYP 
KDCSW 
KJMPR 
KJMP2 
KJMP3 
CFL6S 
ERFL6 
ITFLG 
PCCTL 
MFL61 
MFL62 
M6PT1 
M6PT2 
M6PT3 
MGPT4 
M6PT5 
M6PT6 
NGPT7 
N6PT8 
CIVEC 
CIJMP 
IDATA 
ICS6N 
IPS6N 
PARM1 
PARM2 
PARM3 
PARM4 
PARM5 
PARM6 
RADIX 
RN6TA 
ECFL6 



RTTHR 
; * * 



177777ft ;UPPER LIMIT OF COMMON AREA 
CMM0N/2S6 ;MSB OF COMMON ADDRESSES 
C8ASE*256 ;MSB ADJUSTMENT FACTOR 



EttU 
EttU 
EttU 
EttU 
EttU 
EttU 
EttU 
EQU 
EQU 
EQU 
EttU 
EttU 
EttU 
EQU 
EttU 
EQU 
EQU 
EQU 
EQU 
EttU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EttU 
EttU 
EttU 
EttU 
EttU 
EttU 



CMMOM-1 
DSPST-1 
TMTYP-1 
KDCSU-1 
KJMPR-1 
KJMP2-1 
KJMP3-1 
CFLGS-1 
ERFLG-1 
ITFL6-1 
PCCTL-1 
MFL61-1 
MFLG2-2 
M6PT1-2 
M6PT2-2 
N6PT3-2 
MGPT4-2 
MGPT5-2 
MGPT6-2 
MGPT7-2 
M6PT8-2 
CIVEC-1 
CIJMP-2 
IDATA-1 
ICS6N-1 
IPS6N-1 
PARM1-1 
PARM2-1 
PARM3-1 
PARM4-1 
PARM5-2 
PARM6-1 
RADIX-2 
RNGTA-1 



EQU ECFL6-1 

******* 



^DISPLAY REFRESH START PTR 
^TERMINAL TYPE NUMBER 
; KEYBOARD DATACOM SNITCHES 
;KEYBOARD STRAPS 

;SET 2 

;SET 3 
i COMMON FLAGS 
;ERROR FLAGS 
; INTERRUPT FLAG 
; PROCESSOR CONTROL FLAGS 
; TERMINAL MODE FLAGS 1 

;AND 2 
;MESSAGE POINTERS 

;. 

# • 

i • 

# • 

;CTU INTERRUPT VECTOR 
;JUMP CODE FOR VECTOR 
;ESQ SEQ PARM ACCUMULATOR 
;SIGN FOR PARAMETER 
^PARAMETER SIGN 
;£SCAPE SEQUENCE PARAMETERS 

;• 

# • 

; RADIX OF PARAMETERS 

;CHAR FUNCTION TABLE ADDRESS 

;ESCAPE SEQUENCE FLAG 
= 0, NOT IN ESCAPE SEQ 
# # ESC SEQ IN PROGRESS 

;SOFT RESET TIMER 
*************** 



END OF COMMON EQUATES * 

************************ 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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7000 
7002 
7005 
7008 
700B 
700E 
7011 
7014 
7017 
701A 
7010 
7020 
7023 
7026 



7029 
702/1 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OGOA 
OOOB 
OOOC 
OOQD 
OOOE 
OOOF 



7800 
7802 
7803 
7804 
7805 
7806 



;********************************* 

; KEYBOARD ENTRY VECTOR POINTERS * 
********************************* 



ZBBAS 
ZNIKB 
ZETKY 
ZBCTL 
ZBNON 
ZTMD1 
ZLND1 
ZSELL 
ZTXMT 
ZLXMT 
ZTJPR 
ZTLKY 
ZLPCK 
ZUMCK 



ECtU 
EttU 
EttU 
EttU 
EttU 
ECU 
EttU 
ECtU 
EQU 
EttU 
EttU 
EttU 
EOU 
EttU 



700006 

ZBBAS+2 

ZNIKB+3 

ZETKY*3 

ZBCTL+3 

ZBHON+3 

ZTMM +3 

ZLMD1+3 

ZBELL+3 

ZTXMT+3 

ZLXMT+3 

ZTJPR+3 

ZTLKY+3 

ZLPCK+3 



KEYBOARD CONSTANTS 



FSALT EttU 
ATOUT EttU 



ZUMCK+3 
FSALT+1 



;KEYBOARD START ADDRESS 

; INITIALIZE KEYBOARD 

;GET KEYBOARD KEY 

; PERFORM KEYBOARD CONTROL 

; MONITOR KEYBOARD 

;SET MODE 1 FLA6S 

;CLEAR MODE 1 FLAGS 

; SOUND THE BELL 

;TURN ON TRANSMIT LED 

;TURN OFF TRANSMIT LED 

;SET JUMPERS ESC SEO ROUTINE 

;SET LATCHING KEYS ROUTINE 

;ALPHA KEY ENTRY CHECK 

;NUMERIC KEY ENTRY CHECK 



; INITIAL ALTERNATE CHAR SET 
; INITIAL ALTERNATE CHAR OUT 



KEYBOARD CONTROL CALLS 



LCKKB 
ULKKB 
RTKEY 
SBLMD 
SRTST 
EDTST 
RET KB 
CIOKY 
SPRPT 
CBRKY 
SCHAR 
STFRN 
SCHST 
FNMD1 
FNMD2 



EttU 
EttU 
EttU 
EttU 
EttU 
EQU 
EttU 
EttU 
EttU 
EOU 
EttU 
EttU 
EttU 
EttU 
EttU 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

1t 

12 

13 

14 

15 



LOCK KEYBOARD 

UNLOCK KEYBOARD 

REPEAT LAST KEY HIT 

SET PERMANENT BLOCK MODE 

START SELF-TEST 

END SELF-TEST 

RESET KEYBOARD 

CHECK FOR I/O CONTROL KEY 

STOP KEY REPEAT 

CHECK FOR BREAK KEY DOWN 

SWITCH CHARACTER SET 

UPDATE FOREIGN RODE 

SET FOREIGN OUTPUT MODE 

SET FOREIGN MODE 1 

SET FOREIGN MODE 2 



************************************************** 



# 

m 


i 
****** 

ZCBAS 
TI66R 
RCSEP 
BKTRM 
DJNSK 
DJNS2 
****** 



DATACOM CONSTANTS 



******************************************** 



EttU 740000 



EttU 
EttU 
EttU 
EttU 
EttU 



ZCBAS+2 
TIGGR+1 
RCSEP+1 

BKTRN-H 
DJMSK+1 



; DATACOM START ADDRESS 
; BLOCK TRANSFER TRIGGER 
; RECORD SEPARATOR CHARACTER 
;BLOCK TERMINATOR CHARACTER 
-DATA COMM JUMPER MASK 
;DATA COMM JUMPER MASK #2 



******************************************** 



7808 
780B 



; DATACOM ENTRY VECTOR POINTERS 

r 
J************************************************* 

ZNIDC EttU ZCBAS-HOtt INITIALIZE DATACOM 
ZN2DC EOU ZNIDC+3 -INITIALIZATION CONTINUATOR 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 2Q 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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780E 
78t1 
7814 
7817 
781A 
781 & 
7820 
7823 
7826 
7829 



0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 
GOOD 



FE67 
FE67 

0001 

0002 
0004 
0008 
0020 
0040 
0080 

FE66 

0001 

0002 
0004 

FE65 



FE64 
FE63 
FE62 
FE61 



ZCMON 


EQU 


ZN2DC+3 


ZCCTL 


EQU 


ZCMON+3 


ZGTST 


EQU 


ZCCTL+3 


ZETDC 


EQU 


ZCTST+3 


ZUTDC 


EQU 


ZETDC+3 


Z SB IN 


EQU 


ZUTDC+3 


ZTBIN 


EQU 


ZGBIN+3 


ZDSIN 


EQU 


ZTBIN+3 


ZCINT 


EQU 


ZDBIN+3 


PCG6Q 


EQU 


ZCINT+3 


;******************* 



ERRORS = PAGE 5 



;M0NIT0RIN6 ROUTINE 
;MISC CONTROL FUNCTIONS 
;SELF-TEST 
;6ET DC CHARACTER 
;PUT DC CHARACTER 
;6ET BINARY DC CHARACTER 
;START BINARY OUTPUT 
;ENt> BINARY OUTPUT 
;DATACO» INTERRUPTS 
;TERH DATACONM HARRIS - HP 
****************************** 



;********** 


*** 


CRTRG 


EQU 





STTR6 


EQU 


1 


RETDC 


EQU 


2 


STREM 


EQU 


3 


STLCL 


EQU 


4 


PTBRK 


EQU 


5 


DSCNT 


EQU 


6 


EDBLK 


EQU 


7 


STMON 


EQU 


8 


STNRM 


EQU 


9 


FTBIN 


EQU 


10 


SDATN 


EQU 


11 


SDFCT 


EQU 


12 


POMFT 


EQU 


13 



DATACOM CONTROL CALL CODES 



*************************************** 



CLEAR BLOCK TRANSFER TRI6GE 

SET BLOCK TRANSFER TRI6GER 

RESET DATACOM 

SET REMOTE RODE 

SET LOCAL NODE 

OUTPUT BREAK SIGNAL 

MODEM DISCONNECT 

TERMINATE OUTPUT MESSAGE 

ENTER MONITOR MODE 

ENTER NORMAL MODE 

ENTER FAST BINARY OUT MODE 

SEND ATTENTION CODE 

SEND FUNCTION DATA 

SEND PROMPT CODE 



;************************************** 

; BISY RAM VARIASBLE 
; 24 BYTES 

•A************************************* 

BYRAM EQU 1771200*23 ;UPPER LIMIT 
;************************************** 

BYFL1 EQU BYRAM ;BISY FLAG 1 

: *********** *************************** 



BVMOV 


EQU 


1Q 


;BLOCK MOVE 


BYINS 


EQU 


2Q 


; INSERT 


BYBEF 


EQU 


4Q 


;BEFEHLSZEILE 


BYMF1 


EQU 


10Q 


^RECORD 


BYMF2 


EQU 


40Q 


;READ 


BYMF3 


EQU 


1Q0Q 


# 


BYMF4 


EQU 


200Q 


I 



-************************************** 

BYFL2 EQU BYFL1-1 ;BISY FLAG 2 
;************************************** 
BYFC1 EQU 1Q ;FLAG MAIN CODE- 

BYFC2 EQU 2Q ;R0UT1NE F C E N T 

BYCIF EQU 4Q ;FLAG C R I N S 

;************************************** 
BYFL3 EQU BYFL2-1 ;BISY FLAG 3 
;************************************** 

;BISY ROUT. MAIN CODE Z-FELDER 

;************************************** 

BVCI1 EQU BYFL3-1 ;Z-FELD COLUMN# CRINS 

BYCI2 EQU BYCI1-1 ;Z-FELD CRINS 

BYZ01 EQU BYCI2-1 ;SCRATCH FELD 

BYZ02 EQU BYZ01-1 ;SCRATCH FELD 2-BYTES 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FE5F 
FE5E 



5000 
5003 
5006 
5009 
500C 
500F 
5012 
5015 
5018 



0000 
OOOA 
OOOC 
OOOD 
OOOE 
OOOF 
0012 
0013 
001B 
0020 
0020 
0026 
0027 
0029 
002B 
002 C 
002D 
002 E 
002 F 
0030 
0032 
0033 
0034 
0035 
0036 
0037 

0040 
0041 
0043 
0044 
0046 
0048 
004 C 
004E 
0052 
0053 
0054 



BYI03 EQU BVZ02-2 ; F R E I 

;************************************** 

BYOOC EQU BVZ03-1 ;8ISY ROUT. INPUT CHARACTER 

:************************************** 



i 




START BISY 


MODUL 20 K 


BY 000 


ECU 


50000Q 


;ENTRV BISY MODUL 


CRINS 


EQU 


BY000+3 


;CHAR* INSERT MODUL 


BYFRE 


EQU 


CRINS+3 


;FULL RESET BISY IN IT. 


BYSRE 


EQU 


BYFRE+3 


;SOFT RESET BISY INIT. 


BY100 


EQU 


BVSRE+3 


;GANZW0RTRE6EL 


CI104 


EQU 


BY100*3 


; INSERT FROM DSPLA 


CR050 


EQU 


C1 104*3 


; INSERT FROM DSPLA 


BYINT 


EQU 


CR 050*3 


;INTERPR. CHAR FROM CTU 


BYGET 

r 


EQU 


BVINT*3 


;GET A REC FROM INP DEV 


; ************* ************* 


; ASCII CHARACTER EQUATES * 


- ************************** 


NULL 


EQU 


OQ 


;NULL 


LF 


EQU 


12Q 


.LINE FEED 


FF 


EQU 


14Q 


;FORM FEED 


CR 


EQU 


15Q 


;RETURN 


SO 


EQU 


016Q 




SI 


EQU 


01 7Q 




DC2 


EQU 


22Q 


; DEVICE CONTROL 2 


DC3 


EQU 


23Q 


; DEVICE CONTROL 3 


ESC 


EQU 


33Q 


; ESCAPE 


CLLIM 


EQU 


40Q 


; CONTROL CODE UPPER LIN I 


ABLNK 


EQU 


040Q ; 


ASCII BLANK 


APSND 


EQU 


46Q 


;«> - AMPERSAND 


QUOTE 


EQU 


47Q 


;<») - SINGLE QUOTE 


A PARK 


EQU 


51 Q 


; > - RIGHT PARENTHESIS 


PLUS 


EQU 


53 Q 


;PLUS SIGN 


COMMA 


EQU 


54Q 


; COMMA 


MINUS 


EQU 


55Q 


;MINUS SIGN 


PRIOD 


EQU 


56Q 


;C> - PERIOD 


SLANT 


EQU 


57Q 


;€/> - SLANT 


ZERO 


EQU 


60Q 


; ASCI I ZERO 


TWO 


EQU 


62Q 


;ASCH TWO 


THREE 


EQU 


63Q 


;ASCII THREE 


FOUR 


EQU 


64 Q 


;ASCII FOUR 


FIVE 


EQU 


6SQ 


;A$CI1 FIVE 


SIX 


EQU 


66Q 


;ASCII SIX 


SEVEN 


EQU 


67 Q 


;ASCII SEVEN 


A SIGN 


EQU 


100Q 


;*AT* SIGN (8) 


AX 


EQU 


101Q 


; UPPER CASE A 


CX 


EQU 


103Q 


;UPPER CASE C 


DX 


EQU 


104Q 


;UPPER CASE D 


FX 


EQU 


106Q 


; UPPER CASE F 


KX 


EQU 


11 OQ 


; UPPER CASE H 


LX 


EQU 


114Q 


;UPPER CASE L 


NX 


EQU 


116Q 


; UPPER CASE N 


RX 


EQU 


122Q 


;UPPER CASE R 


SX 


EQU 


123Q 


; UPPER CASE S 


TX 


EQU 


124Q 


; UPPER CASE T 
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0055 
0059 
005A 
0058 
005C 



0061 
0063 
0064 
0066 
0069 
006B 
0070 
0078 
007B 
007C 
007F 



OOBF 
OOCO 
00C1 
00C2 
00C3 
00C4 
00C5 
O0C6 
00C7 
00C8 

O0C4 
OOCC 
OOCE 
0000 
0800 
8000 
00C3 
00C9 



0017 
004F 
0010 
0008 
GOOF 
0010 
0020 
0001 
0002 
0032 
0080 



UX EOU 12 56 

YX EOU 131* 

2X ECU 1326 

LT8KT EOU 1330 

ACKSL EOU 1346 

i 

; ******************* 

; LOWER CASE E6UATES 

******************** 

SALLA EOU 1416 

ALCC E6U 1436 

SALLD E6U 1446 

SALLF E6U 1466 

SALLI EOU 1516 

SALLK EQU 1536 

SALLP E60 1606 

SALLX EOU 1706 

LTBRC E60 1736 

VTBAR EOU 1746 

A DEL EOU 1776 



ERRORS = PA6E 7 



-UPPER CASE 
;UPPER CASE Y 
;UPPER CASE Z 
;LEFT BRACKET 
;(*) - BACK SLANT 



** 

* 

** 

;as 

i 

i 
i 

m 

r 
* 

# 
i 
r 



LOWER CASE A 
CII LOWER CASE I 
LOWER CASE D 
LOWER CASE F 
LOWER CASE Z 
LOWER CASE K 
LOWER CASE P 
LOWER CASE X 
LEFT BRACE 
VERTICAL BAR 
DELETE CRUBOim 



; DIS 
•**** 

EHLIK 

STPR 

ENDPR 

XONLT 

FILL 

SPFLG 

ALPHA 

NMBER 

APHNN 

SKYAT 

m 

FDSEP 

EOL 

EOP 

LKLIM 

NU«2K 

B15 

imp 

IRET 



****** 
PLAT F 
****** 
EOU 
E6U 
E6U 
E6U 
E6U 
E6U 
E6U 
EOU 
E6U 
E6U 

E6U 
E6U 
E6U 
E6U 
E60 
E6U 
EOU 
E6U 



************** 

LAGS EOUATES * 

************** 
2776 ^MAXIMUM ENHANCEMENT CODE 
3006 -START PROTECTED FIELD 
3016 ;END PROTECTED FIELD 
3020 ;START TRANSMIT-ONLY FIELD 
3036 ;EOL FILL CHARACTER 
3046 ;NON-DISPLAYING TERMINATOR 
3056 ; ALPHABETIC ONLY 
3066 ; NUMERIC ONLY 
3076 -ALPHANUMERIC FIELD 
3106 ;SOFT KEY ATTRIBUTE FIELD 



3046 
3146 
3166 
3206 

40006 

1000006 

3036 

3116 



; FIELD SEPARATOR FOR I/O BUF 



; LOWEST VALUE FOR A LINK 
; NUMBER 2048 C2K> 
* B I T 15 

•JUMP INSTRUCTION CODE 
-RETURN INSTRUCTION CODE 



• ************************ 

; MISCELLANEOUS EOUATES * 
- ************* *********** 



MX ROW 
MXCOL 
STEND 
BLLIM 
BLKSM 
BLKSZ 
IERRB 
RXMIT 
BNXMT 
STOLY 
NSIGN 



EOU 
E6U 
E6U 
E6U 
E6U 
E6U 
EOU 
E6U 
E6U 
EOU 
EOU 



23 
79 
16 

8 

176 

16 

406 

16 

2 

50 

2006 



-MAXIMUM ROW NUMBER 

-MAXIMUM COLUMN NUMBER 

-LAST SOFT KEY DEFINITION RO 

; SPACE FROM RHTM6N FOR BELL 

;BLOCK SIZE MASK 

-BLOCK SIZE 

;I/0 ERROR STATUS BIT 

;RE-TRANSMIT 1/0 FLAG 

-SEND BINARY DATA 

•SOFT RESET PERIOD - .50 SEC 

;N0 SIGN FLAG FOR INPUT DATA 



: ********************* 
I/O MODULE EOUATES * 
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0000 
0001 
0070 
0080 



8003 
8083 
0002 
0004 
0008 



8007 
8007 
8027 
0020 
0040 
0060 
0080 
0082 
0080 



800B 
800B 
800B 
802B 
802B 



8006 
802D 
800D 
8 OOF 



8005 
8045 
8025 
8065 
8045 



; ********************* 



RESET EQU OQ 

RTJMP ECO 10 

POCSR EftU 1600 

IBASE EQU 2000 



; RESET TERMINAL VECTOR 
jVECTOR FOR RESTART "PCHL* 
;PROCESS0R "OUT- PORT 
;I/0 ADDRESS KSB*S 



KEYBOARD 



I OKB 
1KB CO 
RSTON 
RTOFF 
NFCTK 



EQU 
EOU 
ECU 
EOU 
EftU 



3Q+IBASE*256 ;MODULE 11 BASE ADDRESS 

IOKB+2000 ;RESET KEY CONTROL 

20 ; RE SET ON 

40 ;RESET OFF 

8 ;NOMB£R OF FUNCTION KEYS 



CURSOR CONTROL 



IDISP 
ICRCL 
ICRRW 
MYEOP 
MYEOL 
DAOFF 
CTOFF 
INVRS 
NRMAL 



EOU 7Q+IBASE*256 ^MODULE 13 BASE ADDRESS 



EOU 
EQU 
EQU 
EOU 
EOU 
EOU 
EQU 
EQU 



IDISP+Q 

IDISP+40Q 

400 

1000 

140Q 

200Q 

2020 

2000 



;CURSOR COLUMN ADDRESS 

;CURSOR ROW ADDRESS 
;DHA 0N # EOP IF DMA ROW = RO 
;DMA OFF, SKIP EOP IF ROWS * 
;DMA OFF 
;DISPLAY OFF 
;INVERSE VIDEO ON 
;NORMAL VIDEO ON 



CARTRIDGE TAPE 



IOCTU 
ICTCO 
ICTSI 
ICTDO 
ICTDI 



EftU 13Q+IBASE*256 ;MODULE 15 BASE ADDRES 

EQU IOCTU+OQ ; COMMAND TO CTU 

EQU IOCTU+OQ ;STATUS FROM CTU 

EOU IOCTU+400 ;OATA TO CTU 

EQU IOCTU+40Q ;DATA FROM CTU 



9866 PRINTER 



IPTR1 
PR0T1 
PRST1 
PRCL1 


EQU 

EQU 
EQU 
EftU 


; RS- 


►232 


IPTR2 
PR0T2 
PRST2 
PRDA2 
PRCF2 


EftU 
EftU 
EftU 
EQU 
EftU 



150+IBASE*256 ; MODULE 16 BASE ADDRES 
IPTR1-KQQ ;PRINTER DATA OUT 
IPTR1+0Q ;PRINTER STATUS IN 
IPTR1*2« ;PRINTER CLEAR 



5Q*IBASE*256 ;MODULE 12 BASE ADDRESS 
IPTR2+100Q ; INTERFACE CONTROL OUT 
IPTR2+40Q ;PR1NTER STATUS IN 
IPTR2+1400 ;PR1NTER DATA OUT 
IPTR2-H0QQ ;0PTION JUMPERS IN 



; ****************** 

; PRINTER EQUATES * 
2****************** 



# 


RS-232 OPTION 


STRAPS 


* 
i 

m 

m 
r 
t 


BITS 2-0 
000 
001 
010 


MEANING IF SET 
EXT BAUD RATE 

110 " 
150 - 
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05DC 



0001 
0080 



0002 
0040 
0020 
OOEO 
001F 



FBFF 
0000 
FCOO 
OOFC 
0000 
FCOO 
FOOD 
FE4F 
0100 



9160 
FFDO 
OOFF 
FFOO 
OOFE 



r 


011 


300 " 




* 


100 


1 200 " 




i 


101 


2400 " 




i 


110 


4800 " 




r 


111 


9600 " 




r 


BIT 3 


PARITY 


SELECT 


i 


1 


EVEN 




i 





ODD 




1 . 
r 


BIT 4 


PARITY 


INHIBIT 


! 


1 


NO PARITY 


ft 

m 





PARITY 




i 


BITS 7-5 


# OF FILLS 


i 


000 


HANDSHAKE DEVICE 


i 


001 


8 




i 


010 


16 




• 


011 


24 




• 


100 


32 




i 


101 


40 




i 


110 


48 




* 

m 


111 


56 





PRDY2 


EQU 


2 


PRSB2 


EQU 


100Q 


PR0L2 


EQU 


40Q 


PRHD2 


EOO 


340Q 


PRBD2 


EQU 


37Q 



;#**************** 

; DRIVER EQUATES * 

;***************** 

PTDLY EQU 1500 ;15 SECOND PRINTER TINE OOT 
; *********************** 

; 9866 PRINTER EQUATES * 

• *********************** 

PRDY1 EQU 1 ^PRINTER READY 

PRP01 EQU 200Q ;PR1NTER OUT OF PAPER 

;************************* 

; RS-232 PRINTER EQUATES * 
• ************************* 

;PRINTER READY MASK 

; RS-232 SB LINE STROBE 

;PRINTER READY MASK 

; RS-232 HANDSHAKE PROTOCOL 

^PARITY AND BAUD RATE MASK 

S 

• **************************** 

; VARIABLE SPACE ALLOCATION * 

; **************************** 

175777Q ^DISPLAY UPPER LIMIT 

150000Q/256 ; DISPLAY LOHER LIMIT 

176000Q 

IOBUF/256 

0; -I8UFH*256+I0BUF 

176000Q 

176400Q 

177000Q+79 ;HESSA6E BUFFER 

256 ^PRINTER INPUT BUFFER SIZE 
;*************************** 
; OPERATING SYSTEM STORAGE * 
**************************** 

FTRAM+14QQ jSTACK AREA (96 BYTES) 
177720ft ;VARIABLES STORAGE AREA 
OSTOR/256 ;MSB OF DATA PAGE ADDRESSE 
BASEH*256 ;DATA PAGE BASE ADDRESS 
BASEH-1 pBASE VALUES FOR SECOND PAGE 



DPLIM 


EQU 


LtfDSP 


EQU 


IOBUF 


EQU 


IBUFH 


EQU 


IBUFL 


EQU 


IBUF1 


EQU 


IBUF2 


EQU 


DPSTR 


EQU 


PRBLN 


EQU 



STACK 


EQU 


OSTOR 


EQU 


BASEH 


EQU 


BASE 


EQU 


BSEH2 


EQU 
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FEOO 



FFCB 
FFCE 



FFCB 



FFC9 



FFC8 
FFC7 



FFC6 
FFC5 
FFC3 

FFC2 



FFC1 
FFCO 
FFBF 
FFBE 
OOOF 
FFAF 
FFAE 



FFAC 
FFAA 
FFA8 
FFA6 
FFA4 
FFA3 
FFA1 
FF9F 



LTLIN 

• 

m 


EQU 


TPLIN-2 


• 

LTCOL 
LTROU 

• 
# 


EQU 
EQU 


LTLIN-1 
LTCOL-1 


LTBCB 
LTFMT 
CRADR 


EQU 
EQU 
EQU 


LTROy-1 
LTBCD-1 
LTFMT-2 


POFLB 


EQU 


CRABR-1 



FF9E 
FF9D 
FF9C 
FF9B 



BASE2 EQU BS£H2*256 ;0F VARIABLES SPACE 

• *************************** 

; VARIABLE SUBROUTINE CALL * 
; *************************** 

EONTF ECU OSTOR-3 -JUMP SUBROUTINE 

CTFAD EQU EONTF+1 ;CHARACTER FUNCTION ABBRESS 

i 

- *************************************** ****** 

• NORMAL/SOFT KEY SWAPPEO BISPLAY PARAMETERS * 
********************************************** 

TPLIN EQU EONTF-2 ;LSB PART OF NEXT LINE 
; POINTER IN TOP BISPLAY 

LINE 
;POINTER TO LSB PART OF 
NEXT LINE POINTER IN 
LAST LINE PROCESSES 
; COLUMN ANB ROW POSITION OF 
-LAST CHARACTER PROCESSED 
CCORRESPONBS TO CHARACTER 
GIVEN BY "CURABR") 
;LAST BISPLAY COBE USEB 
;LAST FORMAT CONTROL USEB 
;AB6RESS OF LAST CHARACTER 

PROCESSED 
^PROTECT STATE OF CCURABR) 
; - -1 # PROTECTEB 

; # -1 # NOT PROTECTEB 

************************* 

; CURRENT CURSOR VALUES * 
* ************************ 

POFLD-1 ; CURRENT COLUMN ANB ROW 
CRCOL-1 -POSITION OF CURSOR 
CRROV-f ;LEFT MARGIN SETTING 
LTMGH-1 ;RIGHT MARGIN SETTING 
E0NTF-RTM6N ;# OF SWAP VARIABLES 
RTMGN-NMSWP ;SVAP BUFFER 
SPSTR-1 ;OISPLAY CURRENTLY ENABLEB 
; - NORMAL BISPLAY 

; -1 = SOFT KEY BISPLAY 

****************************************** 

; FIXEB BISPLAY PARAMETERS (NOT SWAPPED) * 

****************************************** 

;FREE BLOCKS LIST HEAB 
;LOW ABBRESS OF BISPLAY AREA 
;HI6H ADOR OF BISPLAY AREA 
;SOFT KEY BISPLAY START ADBR 
;CURRENT FUNCTION KEY CHAR 
;TOP LINE ABSOLUTE ROW NUMBE 
;LAST BISPLAY LINE START ABB 
-POINTER TO LSB PART OF NEXT 
LINE POINTER IN FIRST 
LINE OF NORMAL BISPLAY 



********************* 

; SCRATCH VARIABLES * 
********************* 
TEMPI EOU FLINE-1 
TEMP EOU TEMPI -1 
CAR IN EOU TEMP-1 
NCHAR EQU CARIN-1 



CRCOL 


EOU 


CRROW 


EQU 


LTMGN 


EQU 


RTMGN 


EQU 


NMSWP 


EQU 


SPSTR 


EQU 


BPTYP 


EQU 



FBLKS 


EQU 


DPTYP-2 


BPBGN 


EQU 


FBLKS-2 


BPENB 


EQU 


BPBGN-2 


STKYS 


EQU 


BPENB -2 


CRFKY 


EQU 


STKYS-2 


TLINO 


EQU 


CRFKY-1 


LLINE 


EQU 


TLINO-2 


FLINE 


EQU 


LLINE-2 



;TEMPORARY STORAGE 
;CHARACTER FROM KEYBOARD 
;NUMBER OF CHARS TO BE ADBEB 
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FF9A 
FF99 
FF98 

FF96 
FF94 
FF92 
FF91 
FF90 
FF8F 
CFFF 
OOBO 
FF80 
FF8B 



FF8A 
FF89 
FF88 
FF86 
FF85 



FF84 
FF83 
FF82 

FFDB 
FFDA 
FFD9 



OOOA 
FF78 



FF77 
FF76 
FF75 
FF73 



FF72 
FF71 

FF70 

0100 
0200 
0400 
0800 
1000 
2000 
4000 



NROWS 
NBLKS 
CKSAV 

LKSAV 
ELADR 
FSTBt 
BKFIL 
EOLMV 
FLCHR 
BSPCE 
LWBUF 
BF8GN 
BFEND 



EQU NCHAR-1 
EQU NRONS-1 
EQU NBLKS -1 



EQU CHSAV-2 
EQU LKSAV -2 
EQU ELADR-2 
EQU FSTBL-1 
EQU BKFIL-1 
EQU EOLMV-1 
EQU 147777Q 



;N0. OF ROWS TO BE ADDED 
;N0. OF BLOCKS TO BE AD DEB 
;SAVE AREA FOR CHAR 

PRECEDING LINK 
-LINK SAVE AREA 
;ADDR OF LAST EOL 
i FIRST BLOCK IN DISPL1 
-FILL FLAG FOR FNDCHR 
;FLAG FOR EOLMOV 
;FILL CHAR SAVE FOR 6TBLK 
-UPPER LIMIT OF BUFFER 
EQU 130Q00Q/256 -LONER LIMIT 
EQU FLCHR-2 ;LON ADDR OF NON-DISPLY BUFF 
EQU BFBGN-2 -HIGH ADDR FOR BUFFER 

-A*************************************** 

; STORAGE FOR CHARACTERS TO BE STORED * 

-**************************************** 

FTCTL EQU BFEND-1 ;FORMAT CONTROL TO BE ENTER E 

DCHAR EQU FTCTL-1 ;NEXT CHAR TO BE DISPLAYED 

^CURRENT CHAR BEING PROCESSE 
;CURRENT TYPE CHECK ROUTINE 
-COLUMN # STORAGE FOR RCADDR 



CHAR 

CKRTN 

TPCOL 



EQU 
EQU 
EQU 



DCHAR-1 

CHAR-2 

CKRTN-1 



-********************************* 
; STORAGE FOR CURSOR POSITIONING * 

;********************************* 

COUNT EQU TPCOL-1 -NUMBER OF BYTES TO FILL 

NROLL EQU COUNT-1 -NUMBER OF LINES TO ROLL 

RLLCT EQU NROLL-1 ;ROLL COUNTER 



NWCOL EQU PARM1 
NWROW EQU PARM2 
SRNRW EQU PARH3 



;NEW COLUMN NUMBER 

-NEW ABSOLUTE RON NUMBER 

;NEU SCREEN RON SETTING 



HBLEN 
HBTBL 



;*********************** 

; HORIZONTAL TAB TABLE * 
*********************** 

EQU 10 ;TA8LE LENGTH (= 10 X 8) 

EQU RLLCT-HBLEN 
************************ 

; DISPLAY SEND STORAGE * 
************************ 

CSPEN EQU HBTBL-1 ; CURRENT ENHANCEMENT IN 

EHOUT EQU CSPEN-1 ;LAST ENHANCEMENT OUT 

CLTST EQU EHOUT-1 -CURRENT ALTERNATE SET OUT 

GTADR EQU CLTST-2 -CURRENT CHARACTER ADDRESS 

- *************************** 

; FLAGS AND TABLE POINTERS * 

**************************** 

CRSET EQU GTADR-1 ; CURRENT ALTERNATE CHAR SET 

KFCTK EQU CRSET-1 -KEYBOARD FUNCTION CODE 

J************************************************* 

MFLGS EQU KFCTK-1 ;BLOCK TRANSFER PENDING FLAG 
************************************************* 

EQU 1Q*256 ;DC2 PENDING 
EQU 2Q*256 ;TERMINAL STATUS PENDING 
EQU 4Q*256 -TERMINAL STATUS 2 PENDING 
EQU 100*256 -DEVICE STATUS PENDING 

•CURSOR SENSE PENDING 
•FUNCTION KEY PENDING 
'DISPLAY SEND PENDING 



SDC2 

SSTAT 

STAT2 

SDVST 

SRSEN 

SCTKY 

SNTER 



EQU 
EQU 
EQU 



200*256 
400*256 
10GQ*256 
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8000 

FF6F 

0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 

FF6E 

0001 
0002 
0004 
0010 
0040 
0080 



FF6D 

FFFF 
0000 
0001 

FF6C 

0020 
OOFF 

FF6B 
FF6A 
FF69 
FF68 
FF67 



FF05 

FFDE 
FFD7 



SVDUN EQU 
; ********** 

MLGS2 EQU 
********** 

EQU 



SVREC 
SINRY 
RLSNS 
ECINP 
FSOUT 
WPDEL 
WPFLG 
NRWST 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



;********** 

D FL6S EQU 
;********** 
SACOM EQU 



2000*256 ;DEVICE DONE PENDING 
******************************* 

NFLGS-1 ;MAIN CODE MODE FLAGS 
******************************* 

1Q ; DEVICE RECORD PENDING 
2Q ;BINART RECORD PENDING 
4Q ;RELATIVE CURSOR SENSE 

1QQ ;ESC RECEIVED IN BLOCK RODE 
20Q ; FIRST SOFT KEY DATA OUT 
40Q ; DELETE CHAR W/ WRAP AROUND 
1Q0Q ;LINE WRAP AROUND OCCURRED 
20 OQ ;MEW ABSOLUTE ROW SET 

****************************** 
NL6S2-1 jDATA TRANSFER FLAGS 

****************************** 



CTXFR 
NSEND 
FTK2D 
KDLOK 
XF2DS 



EQU 
EQU 
EQU 
EQU 
EQU 



001 Q ;DATACOM/ KEYBOARD 
2Q ; CONTINUE BUFFER TO DATA COW 

4Q ;N0 DISPLAY DATA TO SEND 

20ft ; FUNCTION KEY TO DISPLAY 

100Q ;KB LOCKED BY ESCAPE SEQUENC 

200Q ;I/0 BUFFER TO DISPLAY NODE 



;********************************************** 
TMFCT EQU DFL6S-1 ;NON-DlSPLAVING TERMINATOR 

;********************************************** 

SPXFR EQU -1 ; TERN IN ATE TRANSFER 
DLTRN EQU ; DELETE TERNINATOR 

INTRH EQU 1 ;IGNORE TERNINATOR 

J****************************************** 

SPOWL EQU TMFCT-1 ;SPACE OVERWRITE LATCH 

J****************************************** 

SOWON EQU 40Q ;SPOW LATCH ON 

SOWOF EQU 377Q ;SPOW LATCH OFF 
************************************************* 

EQU SPOWL-1 ;MEMORY LOCK ROW 

EQU MKROW-1 ;MENORY LOCK FLAG 

EQU HKFLG-1 ;LAST CHARACTER PROCESSED 

EQU LCHAR-1 ; CURRENT TEST PATTERN CHAR 

EQU TCHAR-1 ; CURSOR ADVANCE FLAG 



MKROW 
MKFLG 
LCHAR 
TCHAR 
CAFL6 



;***************************** 

; POINTERS FOR BINARY LOADER * 

;***************************** 

LADDR EQU 
LB ATA EQU 
LHKSM EQU 



PARH6 ;BYTE ADDRESS PARAMETER 
IDATA ;INPUT DATA ACCUMULATOR 
PARH5 ;16-BIT CHECKSUM 



V*V*V*V*V*V*V*V*¥*V*V*V*V*V*V*¥*V*V 

CTU/IO EQUATES - 4/11/76 - 2255 HOURS 
TAPE DISTANCE MEASUREMENT 



AS OF 3/1/75, .017125" OF TAPE MOTION IS 
EQUIVALENT TO 1 TACH EDGE. THE COUNT IS 
IN ERROR WHEN STARTING OR STOPPING BY 
1 TACH EDGE (STOPPING IN A GAP MAY CAUSE 
AN ERROR OF TWO TACH EDGES). 

******************************* 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FF66 

0080 
0040 
0020 
0Q10 
0008 
0004 
0002 
0001 

FF65 

0001 
0002 
0004 
0008 

0010 
0020 

0080 

FF64 

0001 
0020 
0040 
0080 



FF63 

0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 

FF62 

0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 

FF61 
FF5F 
41B0 
FF5E 
FF50 
FF56 



CSTAT 
;***** 
TKI 
RDY 

GAP 
HOL 
TAIC 
RIP 
CIR 
CIL 
****** 

IFL6S 

****** 

RWOWT 
UREAD 
FLRED 
RCRUD 

RCINI 
RCPGE 

VRIFY 

****** 

XFLG2 

ETB2D 
XS2BF 
OPBTM 
EDDSP 



EQU CAFL6-1 ;CTU STATUS 

************************** 



EQU 200Q ;TACH INTERRUPT 

EQU 100ft ;BYTE READY 
EQU 408 

EQU 206 ;TAPE HOLE 

EQU 10Q ;TACH C58-4 EDGES/IN) 

EQU 4ft ;RECORD IN PROGRESS 

EQU 2Q ; RIGHT CARTRIDGE INSERTED 

EQU 1ft ;LEFT CARTRIDGE INSERTED 
*************************** 

EQU CSTAT-1 ;I/0 FLA6S 1 

*************************** 

EQU 1Q ;READ WITHOUT WAIT MODE 
EQU 2Q ;READ KEY INITIATED READ 
EQU 4ft ;FILE READ 
EQU 10Q ; RECORD DISPLAY AND REWIND 

OLD OUTPUT CTU (LOGGING) 
EQU 20Q ;START "RECORD" MODE 
EQU 40Q ;FILE COPY FROM DISPLAY - 

INHIBIT ROLL UP 
EQU 200Q ;**CTU2BF" PERFORMS VERIFY 
*************************** 

EQU IFLGS-1 ;I/0 FLAGS 2 

*************************** 

EQU 1Q ;EXTERNAL BUFFER TO DATA COM 

EQU 40Q ^TRANSFER DISPLAY TO BUFFER 

EQU 100Q ;BOTTOM OF DISPLAY REACHED 

EQU 200Q ;END OF DISPLAY REACHED 



********************************* 

UNITO EQU IFLG2-1 -UNIT STATUS 

********************************* 

LPM EQU 1Q ;TAPE AT OR BEFORE LOAD POIN 

LTFWD EQU 2Q ;TAPE LAST MOVED FORWARD 

FPS EQU 4Q ;TAPE WRITE PROTECTED 

CDEXC EQU 10Q SUCCESSFUL COMMAND EXECUTIO 

DLHOL EQU 20ft -DOUBLE HOLE FOUND 

BOT EQU 40Q ;TAPE PAST BOT HOLES 

LP EQU 100Q ;TAPE PAST LP HOLE 

EW EQU 200Q ;TAPE PAST EW HOLE 

******************************************** 

CTRLO EQU UNITO-1 ;DATA TRANSFER FLAGS: * 

******************************************* 



EOF 

EVD 

HDERR 

STERR 

HDER1 

WTERR 

DTATR 

EFINH 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



1Q 

2Q 

4Q 

10Q 

20Q 

40Q 

100Q 

200Q 



-END OF FILE 
-END OF VALID DATA 
;HARO ERROR 
-SOFT ERROR 
^INTERRUPT ERROR FLAG 
; WRITE ERROR 
;DATA RECORDED 
-INHIBIT REPORTING EOF 



*********************************************** 



RLTAK 
ASTAK 
SRTAK 
FLNUM 
STCNT 
OTHER 



EQU CTRLO-1 ;GAP LENGTH COUNTER 

EQU RLTAK-2 ;ABSOLUTE TACH COUNTER 

EQU 40660Q ;STARTING VALUE FOR COUNTER 

EQU ASTAK-1 ^CURRENT FILE NUMBER 

EQU FLNUM-1 ;SOFT ERRORS PER PASS 

EQU STCNT-? ; STORAGE FOR UNIT NOT SEL. 



- ******************************************* 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FF55 

0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 



0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 

FF54 
FF53 
FF52 
0020 
FF51 
FF50 



FF4F 



FF4E 
FF4D 
FF4C 
FF4B 
FF4A 
FF49 
FF48 
FF47 
FF46 
FF3D 
003D 
FF3C 
FF3B 



FFDB 
FFDA 
FFD9 
FFDS 
FFD7 
FFDS 



CMND EOO OTHER-1 ; CURRENT CTU COMMAND: * 

******************************************* 

;MOVE TAPE 

;FORWARD 

;FAST 

; RECORD 

;SELECT LEFT UNIT 

;GAP GENERATE 

;LI6HT FOR RIGHT UNIT 
; LIGHT FOR LEFT UNIT 
*********************** 

BXSTAT - I/O DEVICES * 
*********************** 

;LEFT CARTRIDGE TAPE UNIT 

;RI6HT CARTRIDGE TAPE UNIT 

;DISPLAY 

^PRINTER 

; ALTERNATE I/O 

jDATA CONN 

;BUF AVAIL FOR PTTPLN ROUTIN 

;BUF HELD BY UNSPECIFIED DEV 

;NUM- OF KBSCAN PER CTU SCAN 
;BLINK MASK FOR EJECT LIGHTS 
;BLINK TIMER 
;BLINK DELAY 
;HOLE COUNTER 
;TAPE STALL COUNTER 



RUN 


EQU 


10 


FWD 


EQU 


20 


FST 


EQU 


40 


REC 


EQU 


100 


USL 


EOU 


200 


GEN 


EOU 


400 


ANR 


EOU 


1000 


ANL 


EOU 


2000 


******************* 


; INPDEV, 


OUT DEV,, 


;***** 


***** 


k ******** 


LTCTU 


EOU 


10 


RTCTU 


EOU 


20 


DSPLY 


EOU 


40 


PINTR 


EQU 


100 


ALT 10 


EOU 


200 


DTCOM 


EOU 


400 


PTPOK 


EOU 


1000 


BFBSY 


EOU 


2000 


SNCNT 


EOU 


CMND-1 


CBLNK 


EOU 


SNCNT-1 


CBLTM 


EOU 


CBLNK-1 


CBDLY 


EOU 


400 


HLCNT 


EOU 


CBLTM-1 


TSTAL 


EOU 


HLCNT-1 



; *************** 

; I/O VARIBLES * 

;****#********** 

ICERR EOU TSTAL-1 



IPDEV 
OTDEV 
ICDPT 
ISTA3 
ISTA2 
ISTA1 
ISTAO 
XRLIR 
CPLIH 
BDBUF 
BDBFL 
BDPTR 
BDEND 



EOU 
EOU 
EOU 
EQU 
EOU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



ICERR- 

IPDEV-1 

OTDEV-1 

ICDPT 

ISTA3- 

ISTA2- 

ISTA1- 

ISTAO- 

XRLIM- 

CPLIM- 

BDBUF-I 

BDBUF- 

BDPTR-1 



;I/0 ERROR FLAG 
* NO ERROR 
-1 * ERROR OCCURRED 
; CURRENT INPUT DEVICE 
;CURRENT OUTPUT DEVICE 
;DEVICE FLA6 POINTER 
1 ;DEVICE STATUS BYTE 3 
1 ; DEVICE STATUS BYTE 2 
1 ; DEVICE STATUS BVTE 1 
1 ;DEVICE NUMBER FOR STATUS 
1 ;TRANSFER LIMIT 
1 ; COMPARE LIHIT 
9 ;BIN TO DECIMAL CONV BUFFER 
BASE ;LSB PART OF "B2DBUF" 



1 ;B2DBUF "GET" POINTER CLS6) 
;B2DBUF END POINTER 



I/O CONTROL VARIABLES 



ICDEV 
ICOUT 
ICINP 
ICTYP 
I CMND 
ICC NT 



EQU PARM1 ; DEVICE FLAG 

EOU PARM2 ; OUTPUT DEVICE ACCUMULATOR 

EOU PARM3 ; INPUT DEVICE ACCUMULATOR 

EQU PARM4 ; COMMAND MODIFIER FLAG 

EOU PARM5 ; COMMAND TYPE FLAG 

EOU PARM6 ;DATA COUNT (2 BYTES) 



I/O BUFFER INFORMATION STORAGE 



FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FF3A 
FF39 
FF38 
FF37 
FF36 
FF35 



FF33 
FF31 
FF2F 
FF2C 
FF2B 
FF2A 
FF29 



FF27 
FF25 
FF24 



FF23 
FF22 



FF21 
FF20 



FE80 

FE7F 

0080 
0040 

0020 

FE7B 
FE7B 
FE79 
FE78 

FE77 



2800 
2800 
2800 



B1STT 
B1TYP 

B1LEN 
B2STT 
82TYP 
B2LEN 



EQU 
EQU 
EGO 
EQU 
ECtU 
EQU 
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BOENO-t ;STATUS OF FIRST BUFFER 

B1STT-1 ;TYPE <-1=N0R« # 0=EOF, 1=EVB 

B1TYP-1 ^LENGTH OF RECORB 

BtLEN-1 ;STATUS OF SECOND BUFFER 

B2STT-1 ;TYPE <-t*N0R«, 0=EOF, 1=EVB 

B2TYP-1 ^LENGTH OF RECORB 



STORAGE FOR CARTRIBGE TAPE INTERRUPT ROUTINES 



CIABR 
C1SPT 
CIBPT 
CICNT 
CITRL 
CICSK 
CISTA 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



B2LEN-2 
CIABR-2 
CISPT-2 
CIBPT-3 
CICNT-1 
CITRL-1 
CICSM-1 



;ABBR£SS 
;POINYER 
^POINTER 
; GENERAL 
;RE-REAB 
^CHECKSUM 



CHAS SEVERAL USES) 
TO BUFFER STATUS 
TO BUFFER 
COUNTERS 

COUNTER, HOLE CNTR 
COUNTER 



; COMMAND SOURCE FLAG 



STORAGE FOR REAB ANB RECORB 



NTRED EQU 
LTREB EQU 
SPCTU EQU 



SVINP EQU 
SVOUT EQU 



CI ST A -2 
NTREB-2 
LTREB-1 



SPCTU-1 
SVINP-1 



;PTR INTO BUF FOR NEXT REAB 
;PTR INTO BUF FOR REAB REPEA 
;SWAP CTU IN LOGGING KOBE 
-1 « SWAP ENABLEB 
* BISABLEB 
;»INPDEV" SAVE FOR LOCAL RCR 
;SAVE OUTBEV DURING LCL REAB 



BAT A FOR FORMAT B I SPLAY STORAGE 



ED COL 
EBROW 



EQU SVOUT-1 ; ENDING COLUMN ANB ROW FOR 
EQU EDCOL-1 ;PREV NON-PROTECTED FIELB 



; EXTENDEB MAIN COBE RAH AREA 
XRASP EQU 177200Q 

;**************************************** 

BVFL6 EQU XRASP-1 ;DEVICE PRESENT FLAG 

;**************************************** 

CTUIN EQU 200Q ;CTU COBE PRESENT 
ALTIN EQU 100Q ;ALTERNATE I/O PRESENT 

;************#******* 

; PRINTER VARIABLES * 

; ******************** 

PRINP EQU 40Q ; ALLOW PRINTER INPUT 

•:********************************•**#************** 



PRBBG 
PRSPT 
PRBPT 
PRABT 



PRFL6 



EQU 
EQU 

EQU 
EQU 



BVFLG-2 

PRBBG-2 
PRSPT -2 
PRBPT-1 



EQU PRABT-t 



CSTRT 



50 



ORG 24G00Q 

EQU $ 

BB VERSN 



;START OF PRINTER BUFFER 

;LOAB POINTER 

; UNLOAD POINTER 

; PRINTER ERROR FLAG 

« 0, NO PRINTER ERROR 

= -1, PRINT ERROR OCCURRED 

;PRINTER TYPE FLAG 
= 0, NO PRINTER 
= 1, PARALLEL INTERFACE 
= 2 m RS-232 INTERFACE 



;ROM PRESENT/VERSION FLAGS 
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FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
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FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2801 28 



2802 


C3BF36 


i 


2805 


C36837 




2808 


C3D737 




280B 


C3G038 




280E 


C35A37 




2811 


C33A37 




2814 


C3B136 




2817 


C36329 




281A 


C3B53D 




281B 


C3E345 




2820 


C31746 




2823 


C3CB41 




2826 


C33B38 




2829 


C32C43 




282C 


C3E33C 




282F 


C3B729 




2832 


C3B239 




2835 


€528 




2837 


C38843 




283A 


C33B2E 




2830 


C38 528 




2840 


C3A741 




2843 


C35E3D 




2846 


C3B120 




2849 


C3333D 




284 C 


C38B41 




284F 


C3DB20 




2852 


C36C34 




2855 


C33C44 




2858 


C3CF34 




285B 


C32C39 




285E 


C37741 




2861 


C3C62B 




2864 


C30A2B 




2867 


C3FE3E 




286 A 


C3092A 




286D 


C3012E 




2870 


C32E2E 




2873 


C3AB47 




2876 


C33536 




2879 


C3E82C 




287C 


C3F52C 




287 F 


C3E332 




2882 


C35843 


• 
# 

i 

* 
« 

i 

i 

• 
t 

! 

2 
* 
# 

r 
* 
i 



BB CSTRT/256 ;ABBRESS CHECK 
VECTORS TO I/O ROUTINES FOR MAIN COBE 



JMP 

J IP 

JMP 

J MP 

JMP 

JMP 

J HP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

J HP 

JMP 

JMP 

JMP 

BW 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 

JMP 



6NKEY 

RBKEY 

CLREB 

RCKEY 

SLKEY 

CUTST 

CNBTK 

RSCTU 

ICNTL 

IS TOO 

IBNGO 

IRB60 

RRB60 

BRYGO 

CBCBP 

CTMON 

PTPLN 

TIBOO 

RABRT 

BYCBK 

CINTR 

ST JMP 

6TPTR 

EOFC 

6I0B0 

POTIO 

EVBC 

SCPRC 

BB200 

SCPFL 

URRNB 

6ETI0 

RVEVB 

RBBOT 

XRB2B 

CN0N1 

SLLCT 

SLRCT 

CLPRT 

SREVB 

BKSPtt 

BKSPX 

EBREB 

SB EOF 



************************ 

CTU INTERRUPT - CALLEB AFTER POLLING IN 
MAIN COBE 

ENTRY; INTERRUPT - PSW # » POSHEB 

EXIT : RETURN FROM INTERRUPT 

BITS FOR TAPES REMOVEB SINCE LAST 
CALL TO CTMON REMAIN OFF. IF TACH 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2885 


CINTR EQU 


S 


2885 


3A66FF 


LDA 


CSTAT 


2888 


F6FC 


OR I 


-1-CIL- 


288A 


210B80 


LXI 


H,ICTSI 


288f> 


A6 


ANA 


K 


288E 


2166FF 


LXI 


H, CSTAT 


2891 


6E 


KOV 


l,m 


2892 


3266FF 


STA 


CSTAT 


2895 


AD 


XRA 


L 


2896 


E61G 


AN1 


HOL 


2898 


C4D128 


CNZ 


HLCKK 


289B 


2E50 


MVI 


L,TSTAL 


289D 


3606 


KVI 


N,6 


289F 


2E66 


KVI 


L,CSTAT 


28At 


7E 


kov 


a,m 


28A2 


B? 


ORA 


A 


28A3 


F2BB28 


JP 


CI100 


28A6 


2E51 


KVI 


L,HLCNT 


28 A8 


35 


l»CR 


H 


28A9 


F2AE28 


JP 


CI02O 


28AC 


3600 


KVI 


K,0 


28AE 


CI020 EQU 


$ 


28 AE 


CC2029 


C2 


HLCTO 


28B1 


2E5F 


KVI 


L,ASTAK 


28B3 


34 


INR 


n 


28B4 


C2B928 


JNZ 


CIG40 


28B7 


23 


INK 


H 


28B8 


34 


INR 


K 


28B9 


CI040 EQU 


$ 


28B9 


2E66 


KVI 


L, CSTAT 


28BB 


CI100 EQU 


$ 


28B8 


3A63FF 


LDA 


UNITO 


28BE 


COEOFF 


CALL 


CIJKP 


28C1 


E1 


POP 


H 


28C2 


F1 


POP 


PSW 


28C3 


FB 


EI 




28C4 


C9 


RET 





28C5 
28C5 
28C8 
28C9 
28CA 
28CC 
28CD 
28CF 
28D0 
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INTERRUPT OCCURRED, ABSTAK IS DECD . 



;6ET OLD STATUS 
IR ;BITS CIL 8 CIR ARE ANDED, 
;OTHERS TAKEN FROM NEW 
;STATUS WORD. 

;6ET OLD STATUS 

;SAVE NEW STATUS 

;HAS HOL STATUS CHANGED? 

;YES - DECIDE WHAT TO DO 
; RESET TAPE STALL COUNTER 

;TACH INTERRUPT? 



;NO - 

;YES - DECR HOLE CHECK COUNT 

;COUNT OVERFLOWED? 

;YES • RESET TO 

; COUNT = 0? 

;YES - RUNOFF OR LP HOLE 
;INC ABSOLUTE TACH COUNT 
;CARY FROM LOW BYTE? 
;N0 - 
;YES - INC HIGH BYTE 



;ROUTINES WANT H,L -> CTSTAT 

;ROUTINES WANT A * UNITO 
; PERFORM INTERRUPT ROUTINE 
^RESTORE REGISTERS 

;RETURN FROM INTERRUPT 



; "DO NOTHING" CTU INTERRUPT HANDLER 

i 



3A2B80 

7E 

2F 

E6AQ 

CO 

2E61 

34 

C9 



TIDOO EQU $ 

LDA ICTDI 

KOV A,M 

CMA 

ANI TKI+GAP 

RNZ 

KVI L,RLTAK 

INR K 

RET 



;CLEAR POSSIBLE BYTE RDY INT 

;6ET CTU STATUS 

;ARE BOTH TACH INTERRUPT 

;AND GAP SET? 
;NO - GUIT 
;YES - COUNT THE TACH EDGE 



r 


m 
# 



*************** ********* 

HOLCHK - HOLE STATUS HAS CHANGED - 
FIGURE OUT WHERE THE TAPE IS 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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28D1 
28D1 
28 &2 
2804 



r 
i 



CALLED ONLY BY CTU INTERRUPT 

ENTRY: A = HOL 

H = BASEH 

L = OLD STATUS 

EXIT : K - BASEH 

A # L DESTROYED 



HLCHK 



A5 

2E51 

C2E928 



EQU 
ANA 
MVI 
JNZ 



$ 

L 

L,HLCNT 

HK300 



;MOVING INTO OR OUT OF HOLE? 

;C6ET POINTER TO COUNTER) 
;OUT - 



28D7 


B6 


ORA 


28D8 


3605 


MVI 


28DA 


3A55FF 


LDA 


28DD 


320B80 


STA 


28E0 


C8 


RZ 



; SECOND OF DOUBLE HOLE? 

;(SET COUNT FOR RUNOFF CHK 
; (RE-ISSUE COMMAND) 



28E1 3E1C 



;********************** 

; HOLE JUST ENTERED * 
; ********************** 

M 

M # 5 

CMND 

ICTCO 

;NO • SET UP TO CHECK OUT HO 
; ************* ************************* 
; SECOND OF DOUBLE HOLE ENCOUNTERED * 

;************************************** 

MVI A # DLHOL ;FLA6 SATS "2ND OF DBL HOLE" 
;************* ************ ********* 
i STUNTO - SET FLAG(S) IN UNITO * 
********************************** 



28E3 




SUN TO 


EQU 


$ 




28E3 


2163FF 




LXI 


H # UNIT0 




28E6 


B6 




ORA 


M 




28E7 


77 




MOV 


M,A 




28E8 


C9 




RET 










; ******************* 








; HOLE JUST LEFT * 








;******************* 




28 E9 




HK3C0 


EQU 


% 




28E9 


3600 




MVI 


n,o 


;CLEAR COUNTER 


28EB 


2E63 




MVI 


L, UN I TO 




28ED 


7E 




MOV 


A^M 


;GET HOLE FLAGS 


28EE 


07 




RLC 




;PAST EARLY WARNING? 


28EF 


D2FC28 




JNC 


HK400 


;NO - 



• ************************ 

; AFTER EARLY WARNING * 

: ************************ 



28F2 


3F 


CMC 


28F3 


1F 


RAR 


28F4 


77 


MOV M,A 


28F5 


CD5B28 


CALL CKFWD 


28F8 


C8 


RZ 


28 F9 


C33929 


JHP CHNG1 



;YES - TURN OFF EW 



;WHICH DIRECTION? 
; REVERSE - RETURN 
;FWD - HANG TIL TAPE REMOVED 



;************************* 

BEFORE EARLY WARNING * 
'************************* 



28FC 


HK 


400 EQU 


$ 


28FC 


E680 


ANI 


LP+LP 


28FE 


C45B2B 


CNZ 


CKFWD 


2901 


3E80 


MVI 


A„EW 


2903 


C2E328 


JNZ 


SUNTO 



;PAST LOAD POINT? 

;YES - WHICH DIRECTION? 

;FWD - SET EW AND QUIT 



***************************** 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2906 
2906 
2907 
2909 
290C 
290E 
2910 



2911 
2911 
2912 
2914 
2916 
2917 
291A 
2918 
291 C 
291E 
291 F 



2920 
2920 
2922 



7E 

E610 

C21129 

2E51 

360C 

C9 



AE 

F601 

E69F 

77 

CD5B2B 

C8 

7E 

F620 

77 

C9 



E610 
C23329 



2925 


3E61 


2927 


CD E 32 8 


292A 


CD5B2B 


2920 


CO 


292E 


7E 


292F 


E6BF 


2931 


77 


2932 


C9 



; AT OR BEFORE LOAD POINT * 

; **************************** 
MC5G0 



$ 

A # M 
DLHOL 
Hit 600 
L,HLCNT 
M,12 



EGO 
MOV 
AMI 
JH1 
MVI 
MVI 
RET 
; **************************** 

; JUST PASSED DOUBLE MOLE * 

;**************************** 

MK600 EQU $ 
XRA M 
OR I LP« 
AMI 
MOV 

CALL CKFWD 
RZ 

MOV A,,N 
ORI BOT 
MOV «,A 
RET 



;2ND OF DOUBLE HOLE? 

;YES - SET FLA6S 
;N0 - SET COUNT TO CHECK FOR 
; DOUBLE HOLE 



; CLEAR DOUBLE HOLE FLAG 
;SET "AT OR BEFORE LP" 

-1-LP-BOT ;SET "BEFORE BOT" 

M # A 

;WHICH DIRECTION? 

;REVERSE - RET "BEFORE BOT' 

^FORWARD - RET "AFTER BOT" 



# 

i 

i 

i 
# 
# 

t 

i 
* 
i 
# 
t 



************************ 

HOLCTO - HOLE CHECK COUNT WENT TO 

INTERPRETATION: IN HOLE => RUNOFF 

NOT IN HOLE => SINGLE HOLE 

CALLED ONLY BY CTU INTERRUPT 



ENTRYS A 
H 



CURRENT STATUS 
BASEH 



EXIT s H « BASEH 

A # L DESTROYED 



HLCTO EQU $ 

ANI HOL 
JNZ CHNGO 



;IN HOLE? 

;YES - HANG TIL TAPE REMOVED 



;******************************** 

; JUST PASSED LOAD POINT HOLE * 

;******************************** 

MVI A # 80T+LP*LPM 

CALL SUNTO ;SET FOR 60IN6 FWD 

CALL CKFWD ;WHICH DIRECTION? 

RN2 *F»D - RETURN 

MOV A # M ;REV - 

ANI -1-LP ;«ARK BEFORE LP 

MOV M,A 

RET 



* ************************ 



CTHANG - HAN6 UNTIL TAPE IS REMOVED 
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2933 
2933 
2936 
2939 
2939 
293C 
293C 
2930 
2940 
2943 
2944 
2947 
294A 
294B 
294E 
294F 
2950 
2950 
2953 
2956 
2959 
295A 
2950 
2960 
2962 



21EB3A 
C33C29 

21FC3A 

E5 

CD582C 

C01470 

El 

G0073C 

CD5Q2B 

2F 

2166FF 

A6 

77 

CD 092 A 

C05Q2B 

210B80 

A6 

C25029 

CD0700 

26FF 

C9 



2963 




2963 


210000 


2966 


2264FF 


2969 


CD4B3D 


296C 


CDCB30 


296F 


3A55FF 


2972 


F5 


2973 


C0582C 


2976 


F1 


2977 


OF 


2978 


00 


2979 


07 


297A 


E608 


297C 


CAB129 



t 
* 

i 
* 



CHN60 



CHN61 
CHANG 



CH100 



i 

i 



* * 



RSCTU 



ENTRY CTNNGQ - RUNOFF 

ENTRY CTHN61 - RAN INTO END-OF-TAPE HOLE 

EXIT : C,Z 

H = BASEH 
A,L DESTROYED 



£<IU 
LXI 

JMP 

EftU 

LXI 

EttU 

PUSH 

CALL 

CALL 

POP 

CALL 

CALL 

CMA 

LXI 

ANA 

MOV 

E«U 

CALL 

CALL 

LXI 

ANA 

mi 

CALL 

nvi 

RET 



H,OFMSG 

CHANG 

$ 

H,UTMSG 

$ 

K 

SOPTP 

ZBELL 

H 

CROIO 

6CTBT 

H,CSTAT 

« 

N,A 

$ 

CM0N1 

6CTBT 

H,ICTSI 

M 

CH100 

RTDSP 

H f BASEH 



;GET RUNOFF MESSAGE 



;GET "UNEXPECTED END OF TP* 

;SAVE MESSAGE POINTER 
;STOP THE TAPE 
;RIN6 THE BELL 

; DISPLAY MESSAGE 

;GET BIT FOR STALLED UNIT 

;TURN IT OFF IN CTSTAT SO 

;SOFT RESET WILL CAUSE 

;REWIND ATTEMPT 



; CHECK OTHER TAPE 
;6ET BIT FOR THIS UNIT 
;HAS IT BEEN REMOVED? 

;NO - CONTINUE WAITING 
;TAPE REMOVED - RESTORE DISP 



************* ********* 

RSTCTU - CTU SOFT RESET 

ENTRY: INTERRUPTS DISABLED 

EXIT : INTERRUPTS ENABLED 

ALL REGISTERS DESTROYED 



EQU 

LXI 

SHLD 

CALL 

CALL 

LDA 

PUSH 

CALL 

POP 

RRC 

RNC 

RLC 

AN I 

JZ 



$ 

H # 

IFLG2 

FEBFS 

IERCL 

CNND 

PSW 

SOPTP 

PSW 



REC 
RT120 



; **************** 



;CLEAR TRANSFER FLAGS 

;FREE I/O BUFFERS 
;CLEAR ERROR UOCERR <- S> 
;GET LAST-ISSUED COMMAND 
"SAVE IT 

;STOP TAPE, RESET LIGHTS, EI 
;RECALL COMMAND 
;WAS TAPE RUNNING WHEN RESET 
;N0 - RETURN 
;YES - RESTORE COWHAND 
;WAS TAPE RECORDING? 
;NO - REWIND TO LP 8 EXIT 
*********************** 
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297F 
297F 
2982 
2984 
2987 
298A 
298D 
2990 
2993 
2996 
2998 
299B 
2990 
29A0 
2 9 A3 
29A4 

29A7 
29AA 
29AB 
29AC 
29AC 
29AE 
29B1 
29B1 
29B4 



3A63FF 

E601 

C2B129 

210200 

CDED2C 

D4212C 

DAE936 

CAAC29 

3EBF 

C01033 

3EFF 

3247FF 

CB5028 

47 

CD862E 

DAE936 

97 

12 

3E4C 
CD0D32 

CDE92B 
C3E936 



; CTU WAS RECORDING - TRY TO RECOVER * 

J*************************************** 

RT020 



RT100 



RT120 



m 

m 

r 


m 
# 



* 

i 





m 
i 
i 

m 






EQU 


$ 


LDA 


UNITG 


ANI 


LPH 


jnz 


RT120 


LXI 


H,2 


CALL 


BKSPR 


CNC 


CKLPH 


JC 


UREXT 


it 


RT100 


MVI 


A,-1-DTATR 


CALL 


CRCTO 


MVI 


A,-1 


STA 


XRLIM 


CALL 


6CTBT 


MOV 


B,A 


CALL 


C2BUF 


JC 


UREXT 


SUB 


A 


STAX 


D 


EQU 


S 


MVI 


A,DTATR 


CALL 


STCTO 


EQU 


$ 


CALL 


RWDLP 


JNP 


UREXT 



; FINDING LOAD POINT? 

;YES - JUST REWIND TO LOAD P 
^BACKSPACE OVER A BAD RECORD 

;AND A GOOD ONE 
;FWD TO LOAD PT IF NOT THERE 
;REPORT ANY ERRORS 
;AT LOAD POINT - DO NOT READ 

; CLEAR "DATA RECORDED" FLAG 
;SET XFR LIMIT TO ONE RECORD 

;GET BIT FOR THIS UNIT 

;IF NOT AT LP, READ A RECORD 

€T0 SET EOF CORRECTLY) 
;REPORT ANY ERRORS 
;N0 ERROR - FREE BUFFER 



;SET "DATA RECORDED" FLAG 



;REUIND TO LOAD POINT 
;REPORT ANY ERRORS 



************************ 
CTMON - MONITOR CARTRIDGE TAPE UNITS 



LOOK FO 
REMOVED 
CALLED 
REWINDS 
CLE., 
TURNS 
LAST CA 
FREE, I 
INPUTS 
CLEAR IN 



R TAPES THAT HAVE BEEN INSERTED OR 

BY WAIT LOOP. 

NEW TAPES IFF UNIT IS NOT BUSY 
RUN BIT OFF IN LAST COMMAND). 
FF LIGHTS FOR ANY TAPE REMOVED SINCE 
LL TO CTMON COR SINCE CTU WAS LAST 
F IT IS NOW BUSY). 

STATUS IFF CTU IS NOT BUSY CPREVENTS 
G AN UNACKNOWLEDGED INTERRUPT). 



DESTROYS A,H,L 



29B7 


CTMON EQU 


$ 


29B7 


3EF7 


MVI 


A,-1-RCRWD 


29B9 


CB9E2B 


CALL 


CIOFS 


29BC 


C4S42A 


CNZ 


L6RWD 


29BF 


C0092A 


CALL 


CMONt 


29C2 


DAE936 


JC 


UREXT 


29C5 


CO 


RNZ 




29C6 


3AQB8G 


LDA 


ICTSI 


29C9 


67 


MOV 


H,A 


29CA 


7D 


MOV 


A,L 


29CB 


2F 


CMA 




29CC 


A4 


ANA 


H 



;SHOULD SCREEN BE RECORDS 
i% OLD OUT CTU REWOUNDt 
;YES - DO LOGGING REWIND 
; CHECK FOR REMOVED TAPES 
;REPORT ANY ERRORS 
; RETURN IF TAPE RUNNING 
;CIL,CIR-1 => TAPE INSERTED 
;K a NEW STATUS 
;GET OLD STATUS 
;CIL,CIR~1 => NO TAPE BEFORE 
;CIL,CIR=1 => TAPE TO REWIND 
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29C0 


E603 




29CF 


67 




29D0 
2901 


C8 
C5 




29D2 


D5 




2963 


E5 




29D4 


3AF4FF 




2907 


E610 




2969 


2124FF 




29DC 


A6 




29DD 


C40038 




29E0 




C 


29E0 


CD092A 




29E3 


C2E029 




29 E6 


E1 




29E7 


D1 




29E8 


C1 




29E9 


7C 




29EA 


E601 




29EC 


C2F129 




29EF 


3E02 




29F1 




C 


29F1 


67 




29F2 


B5 




29F3 


3266FF 




29F6 


7C 




29F7 


CDFD2D 




29FA 


CDCB3D 




29 FD 


212Q01 




2A00 


2262FF 




2A03 


CDE92B 




2 A 06 


C3E936 


* 

i 
• 
# 



1 
• 





2A09 













c 


2A09 


CD8E2A 




2A0C 


6F 




2 A OD 


E601 




2A0F 


CCA62A 




2A12 


7D 




2A13 


E602 




2A15 


CCAB2A 




2A18 


F3 




2A19 


3A55FF 




2A1C 


E601 




2A1E 


3A50FF 





CM020 



ERRORS = PAGE 22 



;ANY TAPES TO REWIND TO LP? 

;(SAVE BITS IN H) 
;NQ - RETURN 
;YES - SAVE REGS FOR POSSIBL 

;CALL TO USREDA 

; 00 ING DATA LOGGING. . . 



;. . .WITH CTU SWAP? 
;¥ES - GET AHEAB OF DATA 
;WAIT FOR CTU TO FINISK 



; RESTORE REGISTERS 



.-RECALL STATUS 

;LEFT TAPE JUST INSERTED? 

;YES - 

;N0 - RIGHT TAPE INSERTED 

;SAVE BIT 

;SET BIT IN STATUS FOR NEW 

;TAPE 
; RECALL BIT 

; SELECT TAPE INDICATED 
; CLEAR ERR FLG CIOCERR <- S> 
'256 ;SET UNI TO AND CNTRLO 

;REWIND TO LOAD POINT 
;REPORT ANT ERRORS 



CTN0N1 - CHECK FOR REMOVED TAPES 

ENTRY: DON'T CARE 

EXIT z L = OLD STATUS 

C => ERROR, RUN ISSUED TO ABSENT TP 
NC => NO SUCH ERROR 
Z -> TAPE NOT RUNNING 
HI => TAPE RUNNING 
A,H DESTROYED 



CMG40 



CM0N1 



ANI 


CIL+CIR 


MOV 


H,A 


RZ 




PUSH 


B 


PUSH 


D 


PUSH 


H 


LOA 


MFLG1 


ANI 


EDIT 


LXI 


H # SPCTU 


ANA 


M 


CNZ 


RCKEY 


EttO 


$ 


CALL 


CM0N1 


JNZ 


CM 020 


POP 


H 


POP 


D 


POP 


B 


MOV 


A,H 


ANI 


CIL 


JNZ 


CM 040 


MVI 


A,CIR 


E«tU 


$ 


MOV 


H,A 


ORA 


L 


STA 


CSTAT 


MOV 


n jr ft 


CALL 


SLACT 


CALL 


IERCL 


LXI 


B # BOT*L 


SHLD 


CTRLO 


CALL 


RWDLP 


JMP 


UREXT 



EQU 


$ 


CALL 


GIST A 


MOV 


L,A 


ANI 


CIL 


cz 


LTOFL 


MOV 


A r L 


ANI 


CIR 


CZ 


LTOFR 


DI 




LDA 


CMND 


ANI 


RUN 


LDA 


TSTAL 



;6ET STATUS 
;SAVE IN L-RE6 
;LEFT TAPE REMOVED? 
;YES - TURN OFF LIGHT 
;RECALL STATUS 
;RIGHT TAPE REMOVED? 
;YES - TURN OFF LIGHT 

;GET CURRENT COMMAND 
;RUN COMMAND ISSUED? 

;(GET CORRESPONDING TPSTAL 
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8080 MACRO ASSEMBLER, VER 2.4 



ERRORS = PAGE 23 



2A21 


FB 


EI 




2A22 


C8 


RZ 




2A23 


B7 


ORA 


A 


2A24 


CO 


RNZ 




2A25 


CD582C 


CALL 


SOPTP 


2A28 


CB612B 


CALL 


CSCAN 


2A2B 


21853C 


LXI 


H, SALMS 


2A2E 


D43C29 


CMC 


CHANG 


2A31 


3A55FF 


LDA 


CMND 


2A34 


E608 


AN I 


REC 


2A36 


CA4D2A 


J2 


CM 100 


2A39 


3E20 


MVI 


A,WTERR 


2A3B 


CDDB32 


CALL 


STCTO 


2A3E 


CD502B 


CALL 


GCTBT 


2A41 


2F 


CMA 




2A42 


F5 


PUSH 


PSW 


2A43 


213AFF 


LXI 


H,B1STT 


2A46 


A6 


ANA 


M 


2A47 


77 


MOV 


»#A 


2A48 


2E37 


MVI 


L,B2STT*2 


2A4A 


F1 


POP 


PSW 


2A4B 


A6 


ANA 


M 


2A4C 


77 


MOV 


M,A 


2A40 


CH100 EOU 


$ 


2A4D 


3A66FF 


LDA 


CSTAT 


2A50 


6F 


MOV 


L,A 


2A51 


97 


SUB 


A 


2A52 


37 


STC 




2A53 


C9 


RET 





;N0 - RETURN NC, Z 

;TPSTAL = => NO INTERRUPTS 

;INTERRUPTS OK - RET NC, NZ 

;STOP THE MOTOR 

;TAPE INSERTED? 

;tGET STALL MESSAGE > 
;YES - REPORT STALL 
;UAS UNIT RECORDING? 

;N0 - RETURN 

;TES - SET WRITE ERROR FLAG 

;CLEAR BITS FOR THIS 
;UNIT IN I/O BUFFERS 



56/256 







1 

i 


EXIT 


: SW 






i 
r 




A, 


2A54 




LGRWD 


EOU 


$ 


2A54 


C5 




PUSH 


B 


2A55 


D5 




PUSH 


D 


2AS6 


CDCB3D 




CALL 


IERCL 


2 A 59 


CD 483 A 




CALL 


UREDA 


2A5C 


3E05 




MVI 


A, 5 


2A5E 


CD752A 




CALL 


LG900 


2A61 


3E06 




MVI 


A, 6 


2A63 


D4752A 




CMC 


LG900 


2A66 


3E0G 




MVI 


A,0 


2A68 


D4752A 




CNC 


LG900 


2A6B 


3EFF 




MVI 


A,-1 


2A6B 


3224FF 




ST A 


SPCTU 


2A70 


D1 




POP 


D 



; RETURN L = STATUS 



; RETURN C, Z 



************************ 

LOGRWD - DO DATA LOGGING-MODE REWIND, I.E., 
RECORD EVERYTHING ON THE SCREEN FIRST, 
AND MONITOR THE BATACOM BETWEEN 
OPERATIONS. 

ENTRY: SWPCTU CONTAINS BIT FOR CTU TO BE 
REWOUND. 
OUTDEV HAS BEEN UPDATED. 

SWPCTU = -1 <=> TAPE SWAP MODE) 
A,H,L DESTROYED. 



;SAVE REGISTERS 

;CLEAR ERR FL6 CIOCERR <- S ) 
;GET EVERYTHING OFF SCREEN 
;WRITE EOF ON OLD UNIT 

;WRITE EVD ON OLD UNIT 

;REWIND OLD UNIT 

; RESTORE SWPCTU 

iRESTORE REGISTERS 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2A71 
2A72 



2A75 
2A75 
2A78 
2A78 
2A7B 
2A7E 
2A81 
2A84 
2A85 
2A88 
2A8B 



2A8E 
2A8E 
2A91 
2A93 
2A96 
2A97 
2A98 
2A9B 
2A9D 
2A9E 
2A9F 



2AA0 
2AA0 
2AA3 
2AA6 



C1 
C3E936 



3208FF 

CD 5800 

CA782A 

CD092A 

C2782A 

D8 

3A24FF 

216041 

C3A741 



3A55FF 

E601 

2166FF 

7E 

CO 

3AQB80 

F6FC 

A6 

77 

C9 



POP B 

JMP UREXT ;REPORT ANY ERRORS 
; ********************************************* 

; SUBROUTINE PERFORMS CONTROL FUNCTIONS ON * 
; TAPE JUST FINISHED * 

;********************************************* 

L6900 

;SAVE FUNCTION FOR CTLCT 
L6910 

.-MONITOR DATACOM 

;CHARS INPUT - KEEP M0NITRN6 

;CTU BUSY? 

;YES - WAIT 

;CRETURN IF ANY ERRORS> 

;NO - SET UNIT 

/PERFORM FUNCTION 



EQU 


$ 


STA 


ICTYP 


EQU 


S 


CALL 


GTDCM 


JZ 


LG910 


CALL 


CM0N1 


JNI 


LG910 


RC 




LDA 


SPCTU 


LXI 


H,CLTAB 


JMP 


STJMP 



************************ 
6ETSTA - GET CTU STATUS 

GET AND SAVE CTU STATUS, CLEARING 

"CART. INSERTED- BITS FOR TAPES THAT HAVE 

BEEN REMOVED. 



r 
i 
* 
i 

* 

i 

r 

t 
• 
r 

t 

r 

6TSTA 



EXIT r CTU NOT BUSY, A * NEW STATUS 
CTU RUNNING, A * OLD STATUS 



;TAPE BUSY? 

;<6ET OLD STATUS) 



;YES - RETURN 
;N0 - GET NEW STATUS 
-1-CIL-CIR ;*AND" BITS FOR TAPES, 

^OTHERS FRM OLD STATUS 
;SAVE STATUS 



****** ****************** 

LITOFF - TURN OFF LIGHT ON SELECTED UNIT 

READS UNIT FROM CURRENT CONTENTS OF "CMND" 

EXIT : A DESTROYED 

LITOFL - TURNS OFF LEFT LIGHT 
LITOFR - TURNS OFF RIGHT LIGHT 



EQU 


$ 


LDA 


CMND 


ANI 


RUN 


LXI 


H,CSTAT 


MOV 


A,M 


RNZ 




LDA 


ICTSI 


ORI 


-1-CIL- 


ANA 


M 


MOV 


M,A 


RET 





CD502B 
CAAB2A 



LTOFF EQU $ 

CALL GCTBT 

JZ LTOFR 

LTOFL EQU $ 



;LEFT UNIT SELECTED? 

;N0 - TURN OFF RIGHT LIGHT 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2AA6 


3E7F 


2AA8 


C3AB2A 


2AAB 




2AAB 


3EBF 


2AAD 




2AAB 


E5 


2AAE 


F5 


2AAF 


2153FF 


2AB2 


F3 


2AB3 


A6 


2AB4 


77 


2A85 


F1 


2AB6 


2E55 


2AB8 


A6 


2AB9 


77 


2 ABA 


32QB80 


2ABD 


FB 


2ABE 


E1 


2ABF 


C9 



2AC0 
2AC0 
2AC3 
2AC3 
2AC4 
2AC6 
2AC7 
2ACA 
2ACB 



22E1FF 

C5 

E62F 

47 

2163FF 

7E 

E6FE 



LTOFR 



LF010 



# 



i 
t 
S 
r 
r 
S 
i 

! 

i 
# 
i 
i 
i 
t 
i 

m 

r 
i 

m 

i 

» 

i 

* 

# 
i 
i 
i 

t 



GTCMO 



OTCMT 



NVI 

JHP 

EGU 

MVI 

EftU 

POSH 

PUSH 

LXI 

BI 

AHA 

MOV 

POP 

MVI 

ANA 

MOV 

STA 

EI 

POP 
RET 



A , -1 -ANL 

LF010 

$ 

A,-1-ANR 
$ 

H 
PSW 

H — CBLNIC 



ERRORS * PAGE 25 



;SET UP MASK 



;MASK FOR RIGHT LIGHT 

;SAVE H,L 

;SAVE MASK 

;TURN OFF BLINKING 

;HOLD OFF INTERRUPTS 



M 

M,A 

PSW 

L„CMND-6ASE 

M 

M # A 

ICTCO 



;RETRIEVE MASK 

;TURN OFF LIGHT IN 



'CMNB' 



H 



; OUTPUT COMMAND TO HARDWARE 
;LITOFF IS ONLY CALLED WITH 

INTERRUPTS DISABLED 
;RESTORE REGS 



************************ 
OUTCMD - ISSUE A COMMAND TO THE CTU 

OUTPUTS THE COMMAND AND SAVES IT IN CMNB. 
UNIT SELECT IS PRESERVED FROM OLD COMMAND 
IF RUN BIT IS UNCHANGED, LIGHTS ARE UNCHNGD 
"RUN" TURNED ON - SELECTED LIGHT TURNED OFF 

BLINK TURNED ON. 
"RUN" TURNED OFF - LIGHT TURNED ON, BLINK 

TURNED OFF. 

ENTRY OCM001 DOES NOT CLEAR LPM CAT OR 
BEFORE LOAD POINT* OR SET CMDEXC (COMMAND 
EXECUTION OK). 

ENTRY: A = BITS RUN, FWD, FST, REC, GEN 

TO BE TURNED ON 
H,L -> INTERRUPT ROUTINE 

ENTRY 0UTCM1 DOES NOT TAKE INTERRUPT 
ROUTINE PARAMETER 

EXIT : H = BASEH 

L DESTROYED 

NC (REQUIRED BY OTHER ROUTINES) 



EttU S 

SHLD CIVEC 

EQU S 

PUSH B 

AN I -1 -USL-ANL-ANR 



;SET UP INTERRUPT VECTOR 



;TURN OFF BITS SET BY 



MOV B,A ;THIS ROUTINE - SAVE RESUL 

LXI H,UNITO 

MOV A # M ;GET UNIT FLAGS 
ANI -t-LPM ;ASSUME OPERATION WILL MOVE 

TAPE BEYOND LP 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 2Q 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2ACD 


F6Q8 


ORI 


CDEXC 


2ACF 


77 


MOV 


M r A 


2AD0 


C3DA2A 


JMP 


OM005 


2A03 


OMOOQ EQU 


$ 


2AD3 


22E1FF 


SHLD 


CIVEC 


2AD6 


OMO01 EQU 


$ 


2AD6 


C5 


PUSH 


B 


2AD7 


E62F 


ANI 


-! -USL- 


2A09 


47 


MOV 


B,A 


2ADA 


0MQQ5 EQU 


$ 


2ADA 


3A55FF 


LDA 


CNND 


2ADD 


4F 


MOV 


C,A 


2ADE 


E6DG 


ANI 


USL+ANL 


2AE0 


BO 


ORA 


B 


2AE1 


47 


MOV 


B,A 


2AE2 


A9 


XRA 


C 


2AE3 


E601 


ANI 


RUN 


2AES 


78 


MOV 


A^.8 


2AE6 


CA062B 


JZ 


OM030 


2AE9 


E610 


ANI 


USL 


2AEB 


0E8C 


HVI 


C # ANL 


2AED 


C2F22A 


JNZ 


OM010 


2AF0 


0E40 


MVI 


C,ANR 


2AF2 


0H010 EQU 


$ 


2AF2 


78 


MOV 


A r B 


2AF3 


B1 


ORA 


C 


2AF4 


47 


MOV 


B,A 


2AF5 


E601 


ANI 


RUN 


2AF7 


C2FC2A 


JNZ 


0M020 


2AFA 


OEOO 


MVI 


C # 


2AFC 


OHO 20 EQU 


$ 


2AFC 


3E20 


MVI 


A # CBDLY 


2AFE 


3252FF 


STA 


CBLTM 


2B01 


79 


MOV 


«4p C 


2802 


3253FF 


STA 


CBLNK 


2B05 


A8 


XRA 


B 


2B06 


0K030 EQU 


$ 


2B06 


3255FF 


STA 


CMND 


2B09 


3 2 068 G 


STA 


ICTCO 


2B0C 


2150FF 


LXI 


W # TSTAL 


2B0F 


3606 


MVI 


M^6 


2B11 


CI 


POP 


B 


2B12 


2E63 


MVI 


L # 0NIT0 


2B14 


AE 


XRA 


M 


2B15 


E602 


ANI 


FWD 


2B17 


C8 


RZ 




2818 


AE 


XRA 


M 


2B19 


77 


MOV 


M # A 


2B1A 


2E5F 


MVI 


L,ASTAK 


2B1C 


7E 


MOV 


A,M 


2B1D 


2F 


CMA 




2B1E 


77 


MOV 


M # A 


2B1F 


23 


INX 


H 


2B20 


7E 


MOV 


A^M 


2B21 


2F 


CMA 




2B22 


77 


MOV 


M,A 


2B23 


C9 


RET 
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;ASSUME OPERATION WILL RUN 



;FAST OUTCMD ENTRY 
;SAVE B,C 

-ANR ;TURN OFF BITS SET BY 
;THIS ROUTINE - SAVE RESUL 

;GET OLD COMMAND 
;SAVE IT 

IR ;USE OLD LIGHTS AND UNIT 
;FORM NEW COMMAND 
;SAVE NEW COMMAND 
;SEE IF RUN BIT HAS CHANCED 

; (RECALL COMMAND) 
;N0 - QUIT 
;YES - GET BIT FOR LIGHT 

;0F SELECTED UNIT 



;RECALL COMMAND 
;TURN ON SELECTED LIGHT 
;NOW CHECK RUN BIT 
;RUN TURNED ON OR OFF? 
;0N - DO NOT CHANGE MASK 
;OFF - CLEAR MASK 

;RESET BLINK COUNTER 

;6ET MASK 

;0 *> NO BLINK 

;N0 RUN - LIGHT LEFT ON, 

RUN - LIGHT TURNED OFF 

; RETURN 

;SAVE IN CMND 

; OUTPUT TO CTU 

jRESET TAPE STALL COUNTER 

^RESTORE B„C 

;KAS DIRECTION CHANGED? 



;N0 - RETURN 

;YES - CHANGE LSTFWD 

;AND COMPLEMENT TACH COUNT 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2B24 
2BZ4 
2B27 
2B29 
2B2B 
2B2E 
2B2E 
2B30 
2B30 
2B33 
2B35 
2B38 
2B39 
2B3A 
2B30 
2B3E 
2B3F 
2B40 
2B41 
2B44 
2B46 
2849 
2B4B 
2B4E 
2B4E 
2B4F 



2B50 
2B50 
2B53 
2B55 
2B57 
2B58 
2B5A 



3AF4FF 
E646 
2E9D 
C23G2B 

2E0D 

3A4FFF 

FE5 5 

CA4E2B 

C5 

D5 

CD0570 

01 

C1 

CO 

BD 

C2302B 

3E09 

CD0870 

3E55 

324FFF 

37 

C9 



3A55FF 

E610 

3E01 

CO 

3E02 

C9 



* * w 



i 



m 

m 
# 





m 
i 




RTSCO 



********************** 
RETSCN - SEE IF "RETURN" HAS BEEN MIT 

RETSCO - IF IN "RECORD" NODE, CHECK FOR 
RECORD KEY INSTEAD. 



ENTRY s 



RTSCN 
RC005 



RCQ20 



# 



i 

i 

i 














* * 



EXIT S NC,NZ *> NO TERMINATOR 

C,Z *> TERMINATOR 
IOCERR=U 
A,L DESTROYED 



EQU 

LDA 

ANI 

MVI 

JNZ 

EttU 

MVI 

EQU 

LDA 

CPI 

JZ 

PUSH 

POSH 

CALL 

POP 

POP 

RNZ 

CUP 

JNZ 

MVI 

CALL 

MVI 

STA 

EQU 

STC 

RET 



$ 

MFL61 

RCORD 

L, 235ft 

RC005 

$ 

L # CR 

$ 

ICERR 

UX 

RC020 

B 

D 

ZETKY 

D 

B 

L 

RC005 

A,SPRPT 

ZBCTL 

A,UX 

ICERR 

S 



;IN "RECORD* NODE? 

;YES - CHECK FOR RECORD KEY 
;NO - CHECK FOR RETURN 

;HAS CR ALREADY BEEN HIT? 

;«U* => YES 
;YES - RETURN 
;NO - SAVE REGISTERS FOR CAL 

;TO 6ETKY 
;ANY NEW KEYS HIT? 



;NO - RETURN 

; TARGET KEY HIT? 

;NO - CHECK FOR MORE INPUT 

;YES - INHIBIT KEY REPEAT 

;SET "IOCERR" TO "U" 

;IOCERR=U => USER INTERRUP 
; RETURN "USER INTERRUPT" 

;C => ERROR 



********************** 

GTCTBT - GET BIT FOR SELECTED CTU 

ENTRY t DON'T CARE 

EXIT t A = BIT 

Z *> RGTCTU 
NZ => LFTCTU 



GCTBT 



ECU S 

LDA CMND 

ANI 

MVI 

RNZ 

MVI 

RET 



USL 
A,LTCTU 

A # RTCTU 



;«HICH UNIT IS SELECTED? 
;1 => LEFT, => RIGHT 

;LEFT - RETURN 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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# 
* 




m 






****** ****************** 

CHKFWD - CHECK DIRECTION OF TAPE MOTION 

EXIT = Z => REV; A » 

NZ *> FtfD; A = FW6 



2B5B 
2BSB 
2B5E 
2B60 



3A55FF 

E602 

C9 



CKFWD EOU $ 

LDA CMND 

AMI FWD 
RET 



****** ***************** 
CISCAN - CHECK FOR CARTRIDGE INSERTED 









r 


EXIT 


: A,H,L 


DESTROYED 











NC *> 


TAPE INSERTED 











C *> 


NO TAPE 


2B61 




CSC AN 


E6U 


$ 




2B61 


CD8E2A 




CALL 


GTSTA 


;GET STATUS 


2B64 


67 




MOV 


H,A 


;SAVE STATUS 


2B65 


CD502B 




CALL 


GCTBT 


;G£T BIT FOR SELECTED UNIT 


2B68 


A4 




ANA 


H 


;IS IT INSERTED? 


2B69 


CO 




RNZ 




;YES - RETURN 


2B6A 


21863B 




LXI 


H # NPNS6 


;N0 - REPORT ERROR 


2B6D 


C3592E 




IMP 


CUERR 





2B70 




CKEOF 


EQU 


2B70 


3A62FF 




LDA 


2B73 


E601 




AN I 


2B75 


C9 




RET 



;********************************* 

; CHKEOF - CHECK FOR END OF FILE * 

;********************************* 

; EXIT : Z - NOT END OF FILE 
; A » 

; NZ - END OF FILE 

A DESTROYED 
S 

CTRLO ;GET LOGICAL STATUS 
EOF ;MASK FOR END OF FILE FLAG 
;RETURN 

;******************************************** 
; CHKEW - CHECK FOR TAPE PAST EARLY WARNING * 
********************************************* 

; EXIT : NZ *> TAPE PAST EARL* WARNING 
; A DESTROYED 

; H,L « ADDRESS OF END OF TAPE MESSAGE 

Z -> NOT PAST EARLY WARNING 

i A * 



2B76 




CHKEW 


EQU 


$ 


2B76 


3A63FF 




LDA 


UNITO 


2B79 


E680 




AN I 


EW 


2B7B 


C8 




RZ 




2B7C 


210F3B 




LXI 


H^ETMSG 


2B7F 


C3592E 




JMP 


CUERR 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



2B82 




CKEVO 


EQU 


$ 


2B82 


3A62FF 




LDA 


CTRLO 


2B85 


E602 




ANI 


EVD 


2 887 


C8 x 




R2 




2B88 


21203B 




LXI 


H,EDMSG 


2B8B 


C9 




RET 





FILE 20 
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FILE 20 

FILE 20 

FILE 20 

J*************************************** FILE 20 

; CHKEVO - CHECK FOR END-OF-VALID-DATA * FILE 20 

;******#********«*********************** FILE 20 

; FILE 20 

; EXIT : NZ - ENB-OF-VALID-DATA REACHED FILE 20 

; A DESTROYED FILE 20 

; H,L * ADDRESS TO EMD-OF-DATA MESSAGE FILE 20 

; Z - NOT AT END-OF-VALID-DATA FILE 20 

; A = FILE 20 

FILE 20 

FILE 20 

;GET LOGICAL STATUS FILE 20 

;END-OF-DATA REACHED? FILE 20 

;N0 - RETURN FILE 20 

;TES - SET END-OF-DATA MS6 FILE 20 

;RETURN FILE 20 

;*******************************#********** FILE 20 

; CHKEVD - CHECK FOR END-OF-VALID-DATA OR * FILE 20 

; LAST COMMAND WAS A RECORD OPERATION * FILE 20 

J****************************************** FILE 20 

; FILE 20 

; EXIT : NZ => CONDITION TRUE FILE 20 

; H # L = ADDRESS OF END OF DATA MESSAGE FILE 20 

; Z *> CONDITION NOT TRUE FILE 20 

; A « FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
;************************ FILE 20 

FILE 20 
STIOFS - SET FLAG(S) IN IOFLGS FILE 20 

FILE 20 
ENTRY: A = BITS TO BE SET FILE 20 

FILE 20 

EXIT : FLAGS SET, A « NEW IOFLGS FILE 20 

H # L -> IOFLGS FILE 20 

FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



2B8C 




CKEVD 


EQU 


$ 


2B8C 


3A62FF 




LDA 


CTRLO 


2B8F 


E6A2 




ANI 


EVD+DTAYR 


2B91 


C8 




RZ 




2B92 


21203B 




LXI 


H,EDMSG 


2B95 


C3592E 




JNP 


CUERR 



r 



r 

I 

* 
# 

r 



2B98 




SIOFS 


EQU 


* 


2B98 


2165FF 




LXI 


H,IFL6S 


2B9B 


B6 




ORA 


M 


2B9C 


77 




MOV 


N,A 


2B9D 


C9 




RET 





# 



;**************#********* FILE 20 

FILE 20 

; CLIOFS - CLEAR FLA6(S) IN IOFLGS FILE 20 

FILE 20 

; ENTRY: A - -1-FLAGS TO BE CLEARED FILE 20 

FILE 20 

; EXIT : FLAGS CLEARED, A = NEW IOFLGS FILE 20 

Z => NO FLAGS CHANGED FILE 20 

NZ => AT LEAST ONE CLEARED FILE 20 

H # L -> IOFLGS FILE 20 

FILE 20 
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2B9E 




2B9E 


2165FF 


2BA1 


A6 


2BA2 


BE 


2BA3 


77 


2BA4 


C9 



2BA5 
2BA5 
2BA6 
2BA9 
2BAA 
2BAC 
2BAF 
2BB2 
2BB3 
2BB4 
2BB7 
2BB8 
2 BBS 
2BBC 
2BBF 
2BC1 
2BC4 
2BC7 
2BC9 



2BCC 

2sce 

2BCE 
2BCF 
2B02 
2BD5 
2B07 



E5 

CD612B 

D8 

3E05 

325DFF 

CBC62D 

E1 

08 

2233FF 

97 

3262FF 

3C 

325EFF 

3E08 

CDE328 

21CC2B 

3EQ5 

C3D32A 



E62G 

CO 

CD582C 

2A33FF 

3E07 

C3D32A 



CIOFS 



EftU 
LXI 

Wnn 

CMP 
MOV 
RET 



$ 

H,IFLGS 

M 

M 
M # A 



; *********************************************** 
; HARDWARE DRIVERS ***************************** 
;*********************************************** 

i 
;************************ 



ITRWD 



INTRWD - INTERRUPT DRIVEN REWIND 

ENTRYt H r L -> INTERRUPT ROUTINE TO BE 

USED AFTER BOT HOLES HAVE BEEN 
SEEN AND TAPE MOTION REVERSED 



EXIT 



ALL REGISTERS DESTROYED 



EOU $ 
PUSH H 
CALL CSCAN 

RC 

NVI A, 5 

STA STCNT 

CALL RVEVD 

POP H 

RC 

SHLD CI ADR 

SUB A 

STA CTRLO 

INR A 

STA FLNUM 

NVI A,CDEXC 

CALL SUNTO 

LXI H # TIRWD 



;SAVE NEXT INTERRUPT ADDRESS 
;IS CARTRIDGE INSERTED? 
;NO - REPORT ERROR 
;SET SOFT COUNT TO 5 

; RECORD EVD IF NEEDED 

^RECALL INTERRUPT ADDRESS 

;RETURN ON ERROR 

;SAVE IN CTIADR 

; CLEAR A 

; CLEAR CONTROL FLAGS 

; INITIALIZE FILE COUNT 

;SET SUCCESSFUL EXECUTION BI 

;6ET INTERRUPT VECTOR 



NVI 
J MP 



A # RUN*FST ;FAST REVERSE COMMAND 



0M000 



; ISSUE COMMAND AND EXIT 



INTERRUPT SERVICE ROUTINE 



TIRWD 



EQU $ 

AN I BOT 

RNZ 

CALL SOPTP 

LHLD CI ADR 

MVI 

i MP 



;BEFORE BEGINNING OF TAPE? 
;N0 - CONTINUE WAITING 
;YES - STOP THE TAPE 
;GET ADDRESS FOR NEXT INTR 

A,RUN*FWD+FST 

OMOOO ; ISSUE FAST FORWARD COMMAND 



;***********************# 

w 

I 
# 
i 
i 
i 
i 



RWDBOT - REWIND TO BEGINNING OF TAPE 

INTERRUPT DRIVEN 

FIRST PART (CALL TO INTRWD) DESTROYS ALL RG 

INTERRUPT ROUTINE DESTROYS NONE 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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28DA 




ROBOT 


EQU $ 


28DA 


21E02B 




LXI H # TRUBT 


28 00 


C3A52B 




JMP ITRWO 






i 


INTERRUPT RO 






# 


AND SUIT 


2BE0 




TRWBT 


EfltU $ 


2BE0 


E62G 




AN I BOT 


2 BE 2 


C8 




RZ 


2BE3 


C&582C 




CALL SOPTP 


2BE6 


C3A02A 




JMP LTOFF 



2BE9 
2BE9 

2BEC 



2BEF 
2BEF 
2BFt 
2BF2 
2BF2 
2BF5 
2BF7 



;6ET INTERRUPT ROUTINE AOOR 
;SET UP REMIND ANO RETURN 



2IEF2B 
C3A52B 



E62Q 
C8 

2IFA2B 

3E2B 
C3032A 



2BFA 




2BFA 


E640 


2BFC 


C8 


2BF0 


7E 


2BFE 


2F 


2BFF 


E6G6 


2C01 


F66B 


2C03 


3263 FF 


2CQ6 


2E61 


2C08 


36F8 


2C0A 


21B041 


2 COO 


225FFF 


2C10 


21t?2C 


2C13 


22E1FF 


2C16 


C9 



• * * 



i 
I 
i 

! 

RWDLP 






TRLPO 



RP100 



TRLP1 



;AFTER BOT HOLES? 
;N0 - CONTINUE WAITING 
;YES - STOP THE TAPE 
;TURN OFF INDICATOR LIGHT 



********************** 
RWDLP - REWIND TO LOAD POINT 

INTERRUPT DRIVEN - REWINDS THE SELECTED TAP 
TO LOAD POINT 



EOU S 

LXI H,TRLPO ;6ET INTERRUPT ROUTINE AOOR 

JMP ITRWD ;SET UP REWIND AND RETURN 

INTERRUPT ROUTINE * WIND FORWARD TO LOAD PT 
CALLED WHILE GOING BACK ACROSS BOT HOLES 

E«U S 

ANI BOT ;PAST BEGINNING OF TAPE HOLE 

RZ ;N0 - CONTINUE WAITING 

EQU $ ;ENTRT FOR CHKLPN 

LXI H,TRLP1 ;SET UP FOR 2ND ROUTINE 

MVI A,RUN+FWD*REC+£EN 

JMP OMOOO ; START RECORDING GAP 

SECOND INTERRUPT ROUTINE - WATCHES FOR LP 
HOLE . 



;AFTER LP HOLE? 

;N0 - CONTINUE WAITING 

^CARTRIDGE PROTECTED? 

;tHO RECORD =*> YES> 

;<BITS ARE SAME - REF BOTH 
l+LTFWD+CDEXC 

;SET FOR AT LP, LAST MOVE FW 
;SET RELATIVE TACH COUNTER 

;T0 GENERATE LEADER 
;INITIALIZE ABSOLUTE TACH 

; COUNTER 
;SET UP INTERRUPT TO GAP 

;OUT LEADER 



THIRD INTERRUPT ROUTINE - GAP OUT LEADER 



EQU 


$ 


ANI 


LP 


RZ 




MOV 


A,M 


CMA 




ANI 


RIP+FPS 


ORI 


BOT+LP+ 


STA 


UNITO 


MVI 


L,RLTAK 


MVI 


M # -8 


LXI 


H,SRTAK 


SHLD 


ASTAK 


LXI 


H*TRLP2 


SHLD 


CIVEC 


RET 





FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2C17 
2C17 
2C18 
2C19 
2C1A 
2C1C 
2C1D 
2C1E 



2C21 
2C21 
2C24 
2C26 
2C27 
2C2A 
2C2B 
2C2E 
2C31 
2C34 
2C34 
2C37 
2C3A 
2C3D 



2C40 
2C40 
2C43 



TRLP2 



7E 

B7 

FO 

2E61 

34 

CO 

C3S82C 



i 

i 




i 
i 
i 
i 



CKLPN 



3A63FF 

E640 

CO 

CD612B 

D8 

CDF22B 

21D93A 

CDD73C 

CD2E2B 
04092A 
C2342C 

C3Q70Q 



LM01Q 





m 






# 


m 












EOBAK 



21462C 
C3A52B 



EGU 


$ 


MOV 


A # M 


OR A 


A 


RP 




KVI 


L,RLTAK 


INR 


n 


RNZ 




JMP 


SOPTP 



;TEST TAPE STATUS 

;IF NO TACH # RETURN 

; INCREMENT COUNTER 

j=0? 

;N0 - RETURN 

;VES - STOP TAPE AND EXIT 



************************ 
CHKLPK - MOVE TO LOAD POINT IF BEFORE LP 
ENTRY: DON'T CARE 



EXIT : A # H,L DESTROYED 
C => ERROR 
NC *> NO ERROR 

NZ -> ALREADY THERE 
Z => MOVED THERE 

;BEFORE LP? 



EQU 

LDA 

AN! 

RNZ 

CALL 

RC 

CALL 

LXI 

CALL 

EOU 

CALL 

CNC 

JNZ 

JMP 



$ 

UNITO 
LP 

CSCAN 

RP100 

H # LPMS6 

CRDIO 

$ 

RTSCN 

CM0N1 

LM010 

RTDSP 



;N© - RETURN 

;SELECTED TAPE INSERTED? 

;N0 - RETURN ERROR 

; START THE TAPE 

; "LOCATING LOAD POINT" 

;WAIT FOR TAPE TO STOP 
;LOOK FOR RETURN KEY 
;NONE - IS TAPE FINISHED? 
;TAPE STILL RUNNING - WAIT 
;TAPE FINISHED - RESTORE DIS 



********************* *** 

ENDBAK - CONDITION TAPE ON SELECTED DRIVE 
(WIND OUT TO END-OF-TAPE AND BACK* 

THIS IS AN INTERRUPT DRIVEN ROUTINE. 
FIRST PART DESTROYS ALL REGISTERS. 
INTERRUPT ROUTINE DESTROYS NONE. 



E6U S 

LXI H # TIEBK 

JMP ITRWD 



;GET NEXT INTERRUPT ROUTINE 
;G0 TO REWIND ROUTINE 



2C46 




T.IEBK 


EStU S 


2C46 


E68C 




ANI EW 


2C48 


C8 




RZ 


2C49 


CD582C 




CALL SOPTP 


2C4C 


C5 




PUSH B 



INTERRUPT ROUTINE 

WATCH •TRIAL 8 SINGLE HOLES 60 BY^ THEN 

REWIND 



^BEYOND EARLY WARNING YET? 
;N0 - CONTINUE WAITING 
;YES - STOP THE TAPE 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



8080 MACRO ASSEMBLER, VER 2.4 



ERRORS = PAGE 33 



2C4D 


D5 


PUSH D 


2C4E 


CDDA2B 


CALL ROBOT 


2C51 


01 


POP 6 


2C52 


C1 


POP B 


2C53 


C9 


RET 



2C54 
2C54 
2C55 
2C58 
2C58 
2CSB 
2C5B 
2C5E 
2C6© 
2C63 
2C64 
2C64 
2C67 
2C68 
2C6B 
2C6E 
2C71 



2C72 
2C72 
2C75 
2C76 
2C78 
2C79 
2C7A 
2C7B 
2C7E 
2C80 
2C80 
2C81 
2C84 
2C86 



;SET UP THE REWIND 
^PREPARE TO EXIT 

;DGN£ - RWDBCT HANDLES REST 



********** 



97 
3261FF 

21722C 

3A55FF 

E6FE 

CDD32A 

FB 

3A50FF 

B7 

C2642C 

21C528 

22E1FF 

C9 



3A51FF 

B7 

2E55 

7E 

1f 

07 

CA802C 

F601 

BE 

C4D62A 
2E66 
C3C528 



# 

ir 

* 
r 

w 

r 
i 

t 

i 
» 
i 
i 
r 
# 
i 



************** 

STOPTP - STOP THE TAPE 
ENTRYr DON»T CARE 



EXU : TAKPO INC'D BY TACH EDGES IN GAP 
CTIVEC -> "DO N0THIN6" ROUTINE 
INTERRUPTS ENABLED 
Z CREtt'D BY PUTCTU) 
NC (RE««D BY RW&BOT) 
A,H r L DESTROYED 



ENTRY STPTPOr 
ENTRY STPTP1: 



CLEAR TACH COUNT FIRST 

USE INTERRUPT VECTOR IN H # L 



SPTPO 



SOPTP 



SPTP1 



E9U 
SUB 
STA 
EttU 
LX1 
EQU 
LDA 
ANI 



$ 

A 

RLTAK 

$ 

K,TSTOP 

$ 

CHND 

-1 -RUN 



;SET UP STOP INTR ROUTINE 
;RE-ISSUE COMMAND W/0 RUN BI 



CALL ON 000 
EI 



SP1Q0 



EttU 
LDA 
ORA 
JNZ 
LXI 



$ 

TSTAL 
A 

SPtOO 
H,T1DOO 



; ENABLE INTERRUPTS 
;WAIT FOR TAPE TO STOP 
;RE«UIRES SO MSEC U/0 A 
; INTERRUPT 



CTU 



SHLD CIVEC 
RET 



;TAPE STOPPED 

;SET UP "DO NOTHING" INT ROU 



'.********************************** 

"STOP TAPE** INTERRUPT ROUTINE * 

********************************** 

EQU % 



TSTOP 



SP200 



LDA 

ORA 

MVI 

MOV 

RAR 

RLC 

JZ 

ORI 

EQU 

CMP 

CNZ 

MVI 

JMP 



HLCNT 

A 

L, CMND 

A # M 



SP200 

RUN 

$ 

M 

0M001 

L # CSTAT 

TIDOO 



^CHECKING OUT HOLE? 

;CGET COMMAND) 

; (CLEAR "RUN" BIT* 

;NO - USE STOP COMMAND 
;YES - USE RUN COMMAND 

; DESIRED COMMAND ISSUED? 
;NO - ISSUE IT 

;"DO NOTHG" WANTS H # L->CTSTA 
;INC TACH-6AP COUNT & SUIT 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
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20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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20 
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20 
20 
20 
20 
20 
20 
20 
20 
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20 
20 
20 
20 
20 
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2C89 
2C89 
2C8C 
2C8D 
2C8F 
2C92 
2C95 
2C97 
2C9A 
2C9C 
2C9D 
2C9E 
2CA0 
2CA1 
2CA2 
2CA4 
2CA5 
2CA7 
2CA8 
2CA9 
2CA9 
2CAB 
2CAE 
2CB1 
2CB2 
2CB3 
2CB3 
2CB4 
2CB5 
2CB5 
2CB7 
2CB8 



2162FF 

7E 

E602 

C2B52C 

3A61FF 

FE4t 

D2A92C 

FE23 

D8 

7E 

EE01 

77 

07 

2E55 

AE 

E602 

37 

CO 

2E5E 

CD5B2B 

CAB32C 

34 

C9 

35 
C9 

3601 

37 

C9 



# 

r 
» 

r 

t 

i 
r 
St 
r 
r 

m 

m 
i 




************************ 

GAPTST - TEST GAP LENGTH FOR FILE HARK 

CALLED BY RECORD SPACE AND FILE SPACE •- 
INCREMENTS FILNUM BASED ON LENGTH Of LAST 
GAP PROCESSED (GAP LENGTH IN RELTAK). 

EXIT r A,H,L DESTROYED 

NC => FILNUH CHANGED 
A * Q => DECREMENTED 
A # => INCREMENTED 
C => FILNUH UNCHANGED 



6PTST 



GPQ10 



6P020 
GP030 



EQU 

LXI 

NOV 

ANI 

JNZ 

LDA 

CPI 

4NC 

CPI 

RC 

NOV 

XRI 

NOV 

RLC 

HVI 

ANI 

STC 

RNZ 

EQU 

HVI 

CALL 

II 

INR 

RET 

EftU 

DCR 

RET 

EttU 

HVI 

STC 

RET 



H,CTRLO 

A,M 

EVD 

GP030 

RLTAK 

65 

GP010 

35 

A,H 
EOF 
M,A 

L^CHND 

H 
FWD 



;6ET PTR TO TAPE FLAGS 

;BACKED OVER EVD? 
;VES - NARK STATUS 
;€ET LENGTH OF LAST GAP 
; INTER-FILE NARK GAP? 
jYES - ADJUST FILE COUNT 
;N0 - FILE MARK GAP? 
;N0 - RETURN 
;VES - CHANGE EOF STATUS 



;EOF AND CMMD FWD BOTH ON 
•BASE ;BOTH OFF *> NEW FILE 
; ENTERED 



L,FLNUM 

CKFWD 

GP020 

M 

$ 

M 

$ 

M # EOF 



;ADJUST FILE NUMBER 

;60ING FORWARD? 

;VES - INCREMENT FILE COUNT 

;N0 - DECREMENT FILE COUNT 



; BACKED OVER EVD - SET EOF 
;AND CLEAR EVD 



****** ****************** 

FWDSPC - SPACE FORWARD N RECORDS, RETURN 

WHEN SPACING IS FINISHED 
FWDSPX - SAME, BUT RET WHEN SPACING STARTED 
FWDSP1 - CLEARS RELTAK AND SPACES ONE 

CHECKS EVD, BUT NOT DATA RECORDED<DATATR ) 

BAKSPW * SPACE BACK N RECORDS, POSITIONING 
TAPE FOR WRITE (I.E., RELTAK - LENGTH OF 
GAP FROM LAST RECORD> RETURN WHEN FINISHD 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2CB9 
2CB9 
2CBA 
2C6D 
2CC0 
2CC3 
2CC4 
2CC4 
2CC7 
2CCA 

2CCB 
2CCB 
2CCC 
2CC0 
2CCE 
2CD1 
2CD2 
2CD5 
2CD8 
2CD9 
2CDC 
2CDF 
2CE2 
2CE3 
2CE5 
2CE8 
2CE8 
2CEA 
2CED 
2CE0 
2CEF 
2CEF 
2CF2 
2CF5 
2CF5 
2CF6 
2CF7 
2CF8 
2CFB 
2CFE 
2CFF 
2CFF 
2601 



97 

3261FF 

210100 

CDCB2C 

D8 

CDG92A 
C2C42C 
C9 



7C 

B5 

C8 

222DFF 

97 

322CFF 

CD212C 

t>8 

CD822B 

C2592E 

CD762B 

08 

3E03 

C3162D 

3EFF 
C3EF2C 

3E00 

CD012D 
C3C42C 

7D 
3D 
B4 
C2FF2C 

C0702B 
CO 

3E01 



» 



* 


i 

# 

i 

« 



i 






FDSP1 



FP020 



FDSPX 



BKSPy 

BKSPR 
BS010 

BKSPX 



BAKSPX - SAME, BUT RET WHEN SPACING STARTED 
IF LAST RECORD IS EOF, GO FORWARD OVER IT 

BAKSPR - SPACE BACK N RECORDS, POSITIONING 
TAPE FOR READ (I.E., DON'T WORRY ABOUT 
GAP LENGTHS) 

WHEN IN DOUBT, USE BAKSPW 

ENTRY: A = NUMBER OF RECORDS TO SPACE 
UNIT SELECTED AND NOT RUNNING 
H,L = NUMBER OF RECORDS 

EXIT : C => ERROR 

NC -> NO ERROR 
A,H,L DESTROYED 



BP015 
BPQ20 



EQU 

SUB 

STA 

LXI 

CALL 

RC 

EQU 

CALL 

JNZ 

RET 

EQU 

MOV 

ORA 

RZ 

SHLD 

SUB 

STA 

CALL 

RC 

CALL 

JNZ 

CALL 

RC 

MVI 

.IMP 

EQU 

MVI 

JMP 

EQU 

MVI 

EQU 

CALL 

JMP 

EQU 

MOV 

DCR 

ORA 

JNZ 

CALL 

RNZ 

EQU 

MVI 

EQU 



$ 

A 

RLTAK 
H,1 
FDSPX 

S 
CM0N1 

FP020 



$ 

A,« 
L 

CICNT+1 

A 
CICNT 

CKLPM 

CKEVO 
CUERR 
CHKEW 

A,RUN*FWD 

RCSPC 

$ 

A,-1 

BSC10 

$ 

A,0 

$ 

BP020 

FPC20 

% 

A,L 

A 

H 

BP015 

CKEOF 

% 

A,1 
$ 



; CLEAR 6AP-TACH COUNTER 

;SET FOR ONE RECORD 
; START SPACING 
;RETURN IF ERROR 

;<ENTRY FOR BACKSPACE) 
; MONITOR TAPES 
;LOOP IF TAPE RUNNING 
;OTHERWISE, RETURN 



COUNT = 0? 

YES - RETURN 

NO - STORE COUNT IN CTICNT* 

;AND CLEAR "MEASURE GAP" 

;FLA6 
MOVE TAPE TO LP IF BEFORE L 
RETURN ON ERROR 
AT END OF DATA? 
YES - QUIT 

NO - PAST EARLY WARNING? 
YES - RETURN ERROR 
SLOW FORWARD COMMAND 
GO TO SPACING ROUTINE 



; SET "MEASURE GAP" FLAG 

; CLEAR "MEASURE GAP" FLAG 
;START SPACING 



;SKIP ONE RECORD ONLY? 

;<ADD IN MSB) 
;N0 - CONTINUE 
;AT END OF FILE? 
;TES - RETURN AT ONCE 

;SET "BACK OVER EOF" FLAG 
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FILE 20 
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2D01 
2004 
2 DOS 
2006 
2007 
20 OA 
2000 
200F 
2010 
2011 
2014 



2016 
2016 
2019 
201A 
2010 
201E 
2D1F 
2022 
2025 
2027 



202A 
2D2A 
202C 
2D2F 
2030 
2032 



2038 
2038 
20 39 
203C 
203F 
2040 
2041 
2044 
2047 
2048 
204B 
2040 
2050 
2053 
2055 



2058 
2058 



322CFF 

7C 

B5 

C8 

2220FF 

3A63FF 

E64G 

C8 

97 

3261FF 

3E01 



2A20FF 

C5 

01F4FF 

09 

C1 

212A20 

02C02A 

F604 

C3CC2A 



E64C 

CA542C 

7E 

E62Q 

C2EA35 



2035 C0892C 



97 

3261FF 

2A20FF 

7C 

B5 

215820 

22E1FF 

co 

CD582C 

3E01 

3220FF 

212A2D 

3E03 

C3D32A 



STA 


CICNT 


MOV 


n H 


OR A 


L 


RZ 




SHLO 


CICNT+1 


LO A 


UNITO 


ANI 


LP 


RZ 




SOB 


A 


STA 


RLTAK 


MVI 


A, RUN 



ERRORS - PAGE 36 



;SET SKIP FLAG 

;SK1P COUNT N ON -ZERO? 

;N0 - RETURN 

;YES - STORE COUNT 

;BEFORE LP? 

;YES - RETURN 

;N0 - CLEAR GAP COUNTER 

;SLO« BACK CONN A NO 

FALL INTO SPACING ROUTINE 



SPACE OVER N RECOROS 



RCSPC 



r 

r 

TRSPO 



EO.U % 

LHLO CICNT+1 ;6ET # OF RECOROS TO SKIP 

PUSH B ;(SAVE B # C) 

LXI 8,-12 ;KORE THAN 12 RECOROS TO 

DAD B ;SKIP? 

POP B ; (RESTORE B,C AND SET 

LXI H # TRSPO ;INTR TO WAIT FOR DATA) 

JNC OTCHD ;N0 - ISSUE COMMAND AND EXIT 

ORI FST ;YES - USE HIGH SPEED SKIP 

JMP OTCMD ; ISSUE COMMAND AND EXIT 

WAIT FOR DATA - INTERRUPT ROUTINE 



EOU 

ANI 

iZ 

NOV 

ANI 

JNZ 



$ 

LP 

SPTPO 

A,M 

GAP 

SC600 



;BEFORE LP? 

;YES - OUIT 

;GET STATUS 

;STILL IN GAP? 

;VES - CHECK FOR EVD 



DATA FOUND - EVALUATE GAP 



CALL 6PTST 



RP040 



EQU 

SUB 

STA 

LHLO 

MOV 

ORA 

LXI 

SHLO 

RNZ 

CALL 

ttVI 

STA 

LXI 

MVI 

JHP 



$ 

A 

RLTAK 

CICNT+1 

A r H 

L 

H,TRSP1 

CIVEC 

SOPTP 

A„1 

CICNT+1 

H,TRSPO 

A,RUN+FWD 

OH 000 



;CHECK GAP TYPE, AND UPDATE 
EOF STATUS AND FILE NUMBER 
; (ENTRY FOR FWD OVER EOF) 

; CLEAR GAP COUNTER 

;BACKSPACIN6 OVER FINAL GAP? 
; (COUNT = => YES) 

;N0 - SET INTERRUPT TO WAIT 

;FOR GAP 

;AND EXIT 
;YES - STOP THE TAPE 

;SET COUNT TO 1 

;WAIT FOR DATA INT ROUT 
;START SAPCIN6 FORWARD 



r 

TRSP1 



WAIT FOR GAP - INTERRUPT ROUTINE 



E64G 



EQU 

ANI 



$ 

LP 



;BEFORE LP? 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2D5A 


CA542C 




2D5D 


3A2B80 




2060 


7E 




2061 


E62G 




2063 


2E61 




2065 


C26B20 




2068 


3600 




206A 


C9 




206B 




R 


2068 


34 




206C 


7E 




2060 


FE03 




206F 


08 




2070 


212A20 




2073 


22E1FF 




2076 


2A20FF 




2079 


2B 




207A 


2220FF 




2070 


7C 




2D7E 


B7 




207F 


CO 




2080 


B5 




2081 


CASF20 




2084 


FEOC 




2086 


00 




2087 


3A55FF 




2D8A 


E6FB 




208C 


C3062A 


* 


208F 




! 
S 
R 


2D8F 


212CFF 




2092 


B6 




2093 


3600 




2095 


CA582C 




2098 


F8 




2099 


C0702B 




209C 


C23820 




209F 


3E8C 




20A1 


C30032 


* 

» 
i 





m 





20A4 




• 
• 

i 








• 
* 

E 


2DA4 


C0822B 




2DA7 


C8 




2DA8 


210100 




20AB 


CBE82C 





JZ SPTPO 

LDA ICTOI 

HOV A,N 

AMI SAP 

HVI L # RLTAK 

JNZ RP110 

MVI N,0 
RET 

RP110 EQO S 

INR M 

MOV A,H 

CPI 3 
RC 

LXI H,TRSPO 

SHLD CIVEC 

LHLD CICNT+1 

OCX H 

SHLO CICNT+1 

MOV A,H 

ORA A 
RNZ 

ORA L 

JZ RP120 

CPI 12 
RNC 

LOA CM NO 

AMI -1-FST 

JNP OM 001 



;YES - aou 
;CLEAR POSSIBLE 
;6ET STATUS 
;IN 6AP YET? 
;C6ET POINTER 



BYTE READY 



TO TACH) 



;N0 - CLEAR GAP LENGTH COUNT 

;ANO RETURN 

. vcc — 

•INCREMENT GAP LENGTH COUNT 
;CGAP >« 3 - ASSUME GAP) 
;<GAP < 3 - ASSUME OROPOUT 

;GAP NOT YET 3 - RETURN 

;GAP >= 3 - SET INTERRUPT TO 
;WAIT FOR OATA 

;GET SKIP COUNTER 

I DECREMENT COUNT 

;UPDATE COUNTER 

;SKIP COMPLETED? 
;N0 - CONTINUE SKIPPING 
;BOTH MSB ANO LSB = 0? 
;VES - TERMINATE SKIP 
;LESS THAN 12 MORE TO GO? 
;M0 - CONTINUE HIGH SPEEO 
;YES - CLEAR THE FAST BIT 

;T0 START SLOW SKIP 
; OUTPUT THE COMMAND ANO EXIT 



J****************************************** 

SKIP COMPLETED - CHECK TERMINATION TYPE * 

****************************************** 

RP120 EGU S 

LXI H,CICNT ;GET SKIP FLAG 

ORA M ;WHAT TYPE ENDING? 

MVI M,G ;CCLEAR SKIP FLAG) 

JZ SOPTP ;N0 ACTION - STOP TAPE % RET 

RM ;BACK TO WRITE - SPC OVER GA 

CALL CKEOF ; AT END OF FILE? 

JNZ RP040 ;YES - SPACE OVER FILE MARK 

MVI A/EFINH ;N0 - INHIBIT END OF FILE 

JMP STCTO ; REPORT AND EXIT 



************************ 

EVOBSP - BACKSPACE OVER EVD IF NEEDED 

ENTRY: DON'T CARE 

EXIT : A # t»*L DESTROYED 

C => TAPE REMOVED 
NC «> NO ERROR 
TAPE STOPPED 



DBSP EQU $ 

CALL CKEVO 

RZ 

LXI H,1 

CALL BKSPW 



;AT END OF OATA MARK? 

;N0 - RETURN 

;YES - BACKSPACE ONE RECORD 

;BAKSPW WAITS UNTIL FINISHED 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
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ERRORS - PAGE 38 



2DAE 



C3212C 



J MP CKLPM 



;G0 FWD IF 

OH TAPE 



EVD WAS ONLY THIN 



J************************************ 

; EOFC - RECORD AN EOF HARK ON TAPE * 

************************************* 



2081 


EOFC E8U ! 


i 


2081 


CD333D 


CALL 


GIOBO 


2 DBA 


D8 


RC 




2DB5 


CD502B 


CALL 


GCTBT 


2DB8 


77 


MOV 


M,A 


2DB9 


47 


MOV 


B # A 


2 DBA 


2B 


OCX 


H 


2DBB 


3600 


MVI 


H # Q 


2DBD 


2B 


DCX 


H 


2DBE 


3601 


MVI 


M^1 


2D CO 


23 


IKX 


H 


2DC1 


23 


INX 


H 


2DC2 


EB 


XCH6 




2DC3 


C36B30 


JMP 


BF2CT 



;6ET A BUFFER 

; RETURN ON ERROR 

;YES - GET BIT FOR THIS UNIT 

;NARK BUFFER BUSY 

;BUF2CT WANTS BIT IN B-RE6 

;H„L -> TYPE 

;HARK EOF 

;MARK LENGTH - 1 



;BUF2CT HANTS D # E -> STATUS 
;BUF2CT HANDLES REST 



;******************************************** 
; REVEVD - RECORD AN EVD ON A REVERSE TAPE * 
; COMMAND AFTER A RECORD OPERATION * 



B * INCREMENT FOR "IOCCNT" 







# 


ENTRY: B * 






i 
i 


IF E 






• 




EXIT : ALL 


2DC6 




RVEVD 


EftU S 


2DC6 


3A62FF 




LDA CTRLO 


2DC9 


E640 




AN I DTATR 


2DCB 


C8 




RZ 


2DCC 




RVEV1 


EttU $ 


2DCC 


21D5FF 




LXI H^ICCNT 


2DCF 


7E 




MOV k,n 


20D0 


80 




ADD B 


2DD1 


77 




MOV M # A 


2DD2 




EDUAT 


EQU $ 


2DD2 


CDDD2D 




CALL EVDC 


2DD5 


D8 




RC 


2DD6 




RVG10 


EQU % 


2DD6 


CD092A 




CALL CM0N1 


2DD9 


C2D62D 




JNZ RV010 


2DDC 


C9 




RET 



ALL REGISTERS DESTROYED 



;GET TAPE STATUS 
;VAS LAST CMND RECORD? 
;N0 - RETURN 



; FETCH SPACE COUNT 
;ADD IN INCREMENT 
; STORE NEW COUNT 

;ENTRY TO WRITE EVD AND WAIT 

;START RECORDING EVD 

; RETURN ON ERROR 

;TAPE STILL MOVING? 
;YES - WAIT 
iNO - RETURN 



2DDD 


EVDC EQU 


$ 


2DDD 


CD333D 


CALL 


GIOBO 


2DE0 


D8 


RC 




2DE1 


CD5C2B 


CALL 


GCTBT 


2DE4 


77 


MOV 


M,A 


2DES 


47 


MOV 


B f A 


2DE6 


2B 


DCX 


H 


2DE7 


3601 


MVI 


M,1 


2DE9 


23 


INX 


H 


2DEA 


EB 


XCHG 





************************************ 

EVDC - RECORD AN EVD MARK ON TAPE * 
************************************ 



;WAIT FOR A BUFFER 

;6ET A BUFFER 

;RETURN ON ERROR 

;GET BIT FOR SELECTED UNIT 

;MARK BUFFER BUSY 

;BUF2CT TAKES UNIT IN B 

;BUF FREE - H # L -> TYPE 

;MARK EVD 

;H # L -> STATUS 

;BUF2CT TAKES BUF PTR IN D,E 
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2DEB 



20EE 
2DEE 
2DF1 
20F1 
2DF4 
2DF7 
2DF8 
20F8 
2DFB 
2DFC 



20FD 
20FD 
2DFE 



C36B30 



JMP BF2CT 



ERRORS = PAGE 39 



;START THE WRITE 



r 

* 

i 

i 

i 

i 

i 

I 

i 

i 

i 

r 
* 
* 



************************ 

FILCMP - COMPARE FILNUM AND IOCCMT 



ENTRY: 
EXIT : 



DON"T CARE 

Z => SAME 

NZ => DIFFERENT 

C => PRESENT < 
NC => PRESENT > 



NEEDED 
NEEDED 



CD5B2B 

3A5EFF 
C2F82D 
3C 

212DFF 

BE 

C9 



FLCMP 
FLCM1 



FP100 



EQU S 
CALt CKFWD 
EQU $ 

FLNUM 

FP100 

A 

$ 

H,CICNT*1 

M 



LDA 
JNZ 
INR 
EQU 
LXI 
CMP 
RET 



;SOING FORWARD? 

; (ENTRY TO AVOID FWD CHECK 
;<GET PRESENT FILE COUNT) 
;YES - USE ACTUAL FILE COUNT 
;N0 - TARGET IS PREVIOUS FIL 

;PTR TO NEEDED FILE COUNT 
^COMPARE 



OF 
D22E2E 



I *********************************************** 

; LOGICAL DRIVERS ****************************** 

************************************************ 

; ******************************** * 

; SELECT UNIT INDICATED IN A-RE6 * 

;********************************* 

SLACT EQU $ 

RRC ;RI6HT UNIT SELECTED? 

JNC SLRCT ;YES - GO GET IT 

; **************************** 

; SELLCT - SELECT LEFT UNIT * 

; **************************** 



;UNIT ZERO CLEFT> SELECTED? 
;YES - DON»T SWAP VARIABLES 

;SAVE REGISTERS 

;BOTTOM OF ACTIVE LIST 
;BOTT0M OF RESERVE LIST 



2E01 




SLLCT 


EQU * 


2E01 


CD5Q2B 




CALL 6CTBT 


2E04 


CO 




RNZ 


2E05 




SLOPP 


EQU $ 


2E0S 


C5 




PUSH B 


2E06 


D5 




PUSH D 


2E07 


215DFF 




LXI H,STCNT 


2E0A 


1156FF 




LXI D,OTHER 


2E0D 


0E07 




MVI C^STCNT 


2E0F 




XH050 


EQU S 


2E0F 


46 




MOV B,N 


2E10 


1A 




LDAX D 


2E11 


77 




MOV M # A 


2E12 


78 




MOV A,B 


2E13 


12 




STAX D 


2E14 


23 




INX H 


2E15 


13 




I NX D 


2E16 


OD 




DCR C 


2E17 


C2QF2E 




JNZ XH05G 


2E1A 


2E55 




MVI L # CMND 


2E1C 


F3 




DI 


2E1D 


7E 




MOV A,M 



•OTHER ;VARIABLE COUNT 

;GET ACTIVE VAR. 

;6ET RESERVE VARIABLE 

; RESTORE RESERVE VARIABLE 

;SAVE ACTIVE VARIABLE 

INCREMENT ACTIVE POINTER 
; INCREMENT RESERVE POINTER 

;HAVE ALL VAR. BEEN SWAPPED? 

;N0 - KEEP GOING 

;$TAY OUT OF INTERRUPT ROUT 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



8080 MACRO ASSEMBLER- VER 2.4 



2E1E 


EEtO 


2E20 


77 


2E21 


320B8G 


2E24 


3A0B80 


2E27 


3A2B8G 


2E2A 


FB 


2E2B 


01 


2E2C 


C1 


2E2D 


C9 



2E2E 
2E2E 
2E31 
2E32 



CD502B 

C8 

C3052E 



2E35 




2E35 


3A4EFF 


2E38 


E6FC 


2E3A 


CO 


2E3B 




2E3B 


C0Q92A 


2E3E 


CA0700 


2E41 




2E41 


21t63C 


2E44 


CDD73C 


2E47 


C02E2B 


2E4A 


DA 0700 


2E4D 


CO 092 A 


2ES0 


C2412E 


2E53 


C0B729 


2E56 


C33B2E 



XRI 
KOV 
STA 
LO A 
LOA 
EI 



USL 
M # A 
ICTCO 
ICTSI 
ICTOI 



POP 
POP B 
RET 

; ***************************** 

; SELRCT - SELECT RIGHT UNIT * 

: ***************************** 



ERRORS ~ PAGE 40 



^SWITCH OMITS 

; ISSUE COMMAND 

;CL£AR ANY BAD INTERRUPTS 

; (CANNOT CHANGE UNITS UNDER 

INTRRUPT) 
^RESTORE REGISTERS 



SLRCT 



E6U $ 
CALL GCTBT 
RZ 
JNP SLOPP 



;UNIT ONE (RIGHT) SELECTED? 
;YES - DON*T SWAP VARIABLES 
;SWAP VARIABLES 



i 

* 
i 

s 

r 
i 
i 

i 

i 

* 
r 



************************ 

BSYCHK - CHECK IF CTU BUSY 

THIS ROUTINE WAITS UNTIL CTU NOT BUSY OR 
USER INTERRUPT. DISPLAYS "CTU BUSY" MESSA6 
TAPES INSERTED DURING THE WAIT ARE REWOUND 
BEFORE BSYCHK RETURNS. 

ENTRY: DON # T CARE 

EXIT : NC *> CTU NOT BUSY 

C => USER INTERRUPTED 
A,H,L DESTROYED 



BYCKO 



BYCHK 



BYOtO 



EOU 


$ 


LOA 


IPDEV 


ANI 


-1-LTCTU 


RNZ 




EOU 


$ 


CALL 


CM0N1 


JZ 


RTDSP 


EOU 


% 


LXI 


H^BVMSG 


CALL 


CRDIO 


CALL 


RTSCN 


.tc 


RTDSP 


CALL 


CM0N1 


iHl 


BY010 


CALL 


CTMON 


JMP 


BYCHK 



2E59 



;IS INPUT A TAPE? 
•RTCTU 
;N0 - RETURN HI, NC 

;CTU BUSY C"RUN" SET)? 
;N0 - RETURN 
;WAIT TIL NOT BUSY 
S PRINT BUSY MESSAGE 

; RETURN KEY HIT? 

;VES - RETURN 

; MONITOR TAPES 

;STILL RUNNING - WAIT 

; STOPPED - CHECK FOR NEW TAP 

;WAIT TIL NOT BUSY 



;*********************************************** 

; CTU ENTRY POINTS FOR ESCAPE SEQUENCES ******** 
; AND USER INTERFACE ******** 

• *********************************************** 
; ***************************************** 
; CTUERR - ERROR RETURN FROM CTU DRIVERS * 

;***************************************** 

CUERR EQU $ 
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2E59 
2E5C 
2E5E 
2E61 
2E61 



2E64 
2E64 
2E67 
2E6A 
2E6A 
2E6D 
2E70 
2E73 
2E73 
2E76 
2E79 
2E7C 
2E7D 
2E7E 



2E7F 
2E7F 
2E81 
2E84 
2E84 
2E86 
2E86 
2E89 
2E8A 
2E8D 
2E8E 
2E8F 
2E92 
2E95 
2E96 
2E97 
2E9A 
2E9D 
2EA0 
2EA3 
2EA4 
2EA4 



3A63FF 

E6F7 

3263FF 

CDC641 



22F1FF 
CD5G2B 

21E33B 
C2732E 
21F53B 

22EFFF 

21E13B 

22EDFF 

AF 

37 

C9 



0601 
C3862E 

0602 

3A55FF 

4F 

CD533D 

1A 

B8 

CAA42E 

CD533D 

1A 

88 

CAA42E 

C&B32E 

B4092A 

D2862E 

C9 



LB A UNITQ 
ANI -t-CBEXC 
STA UWITO 

CUER1 EQU S 

CALL IF 

• ************* 

; SLTPMS - SET 

; ************* 



;TURN OFF 
;BIT 



'COMMAND COMPLETED 



AIL ;SET ERROR FLAG 

********************************* 

MESSAGE FOR SELECTED TAPE UNIT * 

********************************* 



STPMS 



STPMt 



CUER2 



r 
i 
i 
r 
I 
i 
i 
i 
& 
i 

m 

r 

m 

m 
» 
# 

i 



LT2BF 



RT2BF 



C2BUF 



EQU $ 

SHLD M6 
CALL 6C 
EQU $ 
LXI H # 
JNZ CU 
LXI H, 
EQU $ 
SHLD MG 
LXI H, 
SHLD MG 
XRA A 
STC 
RET 



PT1 
TBT 

OLTMS 

ER2 

ORTMS 



;STORE POINTER TO ERROR MSG 
;SET OP PTR TO UNIT MSG 
jENTRY FOR CMPARE ROUTINE 
;*LEFT TAPE" MESSAGE 

;"RI6HT TAPE" MESSAGE 



PT2 

EPMS6 ;SET SECOND HALF TO NO 

PT3 ;MESSA6E 

;SET A REG * 



************************ 

CT2BUF - READ A CTU RECORD 

ENTRY: D,E -> STATUS OF LAST BUFFER RETURND 

(DON«T CARE FOR FIRST READ) 
EXIT : NC *> SUCCESSFUL READ 

D # E -> NE« BUFFER STATUS 
C => ERROR 

IOCERR^U => USER INTERRUPTED 
IOCERR-F «> FAILURE 
MS6PTX -> ERROR MSG 
KILLS ALL REGISTERS 



CB020 



EQU 

MVI 

J MP 

EQU 

MVI 

EQU 

LDA 

MOV 

CALL 

LDAX 

CMP 

JZ 

CALL 

LDAX 

CMP 

JZ 

CALL 

CNC 

JNC 

RET 

EQU 

DCX 



$ 

B,LTCTU 

C2BUF 

S 

B,RTCTU 

$ 

CMND 

C,A 

CGBUF 

& 

B 

CB020 

CGBUF 

D 

B 

CB020 

RINIT 

CM0N1 

C2BUF 

$ 

D 



;PUT FLAG FOR UNIT IN B 



;GET COMMAND FOR READ INIT 

iLOOK AT OTHER BUFFER 
;IS IT READY? 

;€STATUS*INPUT UNIT => YES 
;YES - START NEXT READ S EX I 
;N0 - IS FIRST BUF READY? 



;YES - START NEXT READ 
;N0 - SET UP READ 
;IF NO ERROR, MONITOR TAPES 
;IF NO ERROR, CHECK AGAIN 



;D,E -> TYPE 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2EA5 
2EA6 
2EA7 
2EAA 
2EAB 
2EAD 
2EAE 
2EB1 
2EB2 



2E83 
2EB3 
2EB4 
2EB6 
2EB7 
2EB8 
2 EBB 
2EBE 
2EC1 
2EC2 

2EC5 
2EC6 
2 ECS 
2ECB 
2ECC 
2ECE 
2ED0 
2 EDI 
2ED4 
2ED7 
2ED7 
2 EDA 



1A 

13 

2147FF 

BE 

2E55 

4E 

FCB32E 

B7 

C9 



79 

E601 

CO 

78 

C0FD2D 

CD612B 

D48C2B 

US 

2162FF 

7E 

E610 

CAD72E 

7E 

E6E7 

F604 

77 

21783B 

C3592E 

CD212C 
D8 



LOAX 
INX 
LXI 
CMP 

MVI 

KOV 

CM 

ORA 

RET 
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D ;A = RECORD TYPE 

D 

H^XRLIN ;H # L -> TRANSFER LIMIT 

M ;LIMIT REACHED? 

L # CMNO-BASE ;C6ET CNND FOR INIT) 

C # M 

RINIT 

A 



;NO-ATTEMPT TO INIT NEXT REA 
;NC *> LAST READ OK 



*************** ********* 

RDINIT - START READING TAPE RECORD 

CALLED BY CT2BUF 

ENTRY: B=FLAG FOR UNIT (1=LFTCTU # 2=RGTCT0> 
C*TAPE COMMAND (CHECKED FOR RON BIT) 



EXIT : 




t 
i 
» 
i 


i 


i 



r 

m 




i 



RINIT EQU 
MOV 
ANI 
RNZ 
MOV 
CALL 
CALL 
CNC 
RC 
LXI 
MOV 
ANI 
JZ 
MOV 
ANI 
ORI 
MOV 
LXI 
.IMP 

RI020 EQU 
CALL 
RC 



NC -> NO ERROR, READ STARTED IF CTU 
NOT BUSY AND BUFFER AVAILABLE 

C => ERROR (NO TAPE OR HARD ERROR OR 
LAST FCN-RECORD OR EVD) 
MSGPTX SET FOR ERROR MSG 

A # H,L DESTROYED 



* 

A,C 

RUN 

A,B 
SLACT 
CSCAN 
CKEVD 

H # CTRLO 

A,N 

HDER1 

RI020 

A,M 

-I-HDER1 

HDERR 

H,A 

H,HDHSG 

CUERR 

% 

CKLPM 



;TAPE RUNNING? 

;V£S-RETURN (NC->NO ERROR) 
;SELECT UNIT 

;TAPE INSERTED? 

;AT EVD OR DATA RECORDED? 

; REPORT ANY ERROR 

;HARD ERROR? 

;N0 - CONTINUE INITI ALIZATIO 
;YES - CLEAR INTERRUPT FLAG 
•STERR ;SQFT ERROR 
;SET HARD ERROR FLAG 

;ERROR MESSAGE 
;REPORT ERROR AND EXIT 

;WIND TO LP IF NOT PAST LP 
;RET0RN ON ERROR 
FALL INTO RDNEXT 





i 




» 






***** ******************* 

RDNEXT - START READING NEXT TAPE RECORD 
CALLED BY INTERRUPT ROUTINE AND RDINIT 
ENTRY: UNIT SELECTED 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2EDB 
2EDB 
2EDE 
2EDF 
2EE0 
2EE3 
2EE4 
2EE6 
2EE9 
2EEA 
2EED 
2EEF 
2EEF 
2EF2 
2EF3 
2EF6 



2EF9 
2EF9 
2EFC 
2EFF 
2F01 
2F04 
2F07 
2F09 
2F0C 
2FQD 



RNEXT 



GD2E2B 

3C 

D8 

CD403D 

CO 

3680 

2231FF 

97 

3262FF 

3E09 

322BFF 
70 

CD5F3D 
222FFF 



RVERF 



* * 



RSTRT 



21592F 

2233FF 

3E8G 

322CFF 

210E2F 

3E03 

CDCC2A 

97 

C9 



* * 



EXIT r C,NZ => USER INTERRUPT 

NC => NO ERROR 

Z => READ STARTED 

NZ => NO BUFFER AVAILABLE 

A,H A L DESTROYED 



EQU 

CALL 

INR 

RC 

CALL 

RNZ 

MVI 

SHLD 

SUB 

ST A 

MVI 

EQU 

STA 

MOV 

CALL 

SKLD 



$ 
RTSCN 

A 

61 OBF 

M,20QQ 

CISPT 

A 

CTRLO 

A # 9 

$ 

C1TRL 

A # L 

GTPT1 

CIBPT 



; CHECK FOR USER INTERRUPT 
;€INSURE TNZ> 

;BUFFER AVAILABLE? 

;N0 - RETURN 
;YES - MARK IT BUSY 

;STORE STATUS POINTER 
;CLEAR CONTROL FLAGS 

;EACH RECORD SETS (RE-TRYS) 
;ENTRY FOR VERIFY MODE 

;6ET POINTER TO FIRST BYTE 

;STORE POINTER 



********************** 

RDSTRT - SET UP RECORD READ 

CALLED BY INTERRUPT ROUTINES VIA RDRTY 

ENTRY: CTISPT -> STATUS OF SELECTED BUFFER 
CTIBPT -> FIRST BYTE 

EXIT : NC (NO ERROR POSSIBLE) 
A,K,L DESTROYED 



;SET STATUS=WAIT FOR PREAMBL 
;SET 6AP C0UNT-00«N=1 28 (>4" 



EQU $ 

LXI H # 6TPRM 

S«LD CIADR 

MVI A # 128 

STA CICNT 

LXI K,T6CT0 ;FIRST r VIAIT FOR SAP 

MVI A,RUN+FWD ;START TAPE RUNNING AND RET 

CALL OTCMD 

SUB A ;NC # Z => READ STARTED 

RET 



********************** 
WATGAP - WAIT FOR THE BEGINNING OF A GAP 

THIS ROUTINE INSURES THAT POSTA«BLE BYTES 
FROM ONE RECORD WILL NOT BE MISTAKEN FOR 
PREAMBLE BYTES OF THE NEXT. 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2F0E 




TGCTO 


ESU 


$ 


2F0E 


7E 








MOV 


A # M 


2F0F 


E620 








AMI 


GAP 


2F11 


3A2B80 








LDA 


ICTDI 


2F14 


C8 








RZ 




2F15 


21tC2F 








LXI 


H^TGC 


2F18 


22E1FF 








SHLD 


CIVEC 


2F1B 


C9 


* 






RET 










* 


* 


* * * 


* # * 



2F1C 


TGCT1 EOU 


V 1 X u 

$ 


2F1C 


?E 


MOV 


A,M 


2F1D 


07 


RLC 




2F1E 


87 


ADO 


A 


2F1F 


DA4D2F 


JC 


GT010 


2F22 


FO 


RP 




2F23 


3A33FF 


LDA 


CIADR 


2F26 


FE59 


CPI 


6TPRM*2 


2F28 


C21B30 


JNZ 


RRTRY 


2F2B 


2E2C 


MVI 


L,CICNT 


2F2D 


35 


OCR 


M 


2F2E 


CO 


RNZ 




2F2F 


2A31FF 


LHLD 


CISPT 


2F32 


CO 5 02 B 


CALL 


GCTBT 


2F35 


77 


MOV 


M,A 


2F36 


2B 


OCX 


H 


2F37 


3601 


MVI 


«,1 


2F39 


CD582C 


CALL 


SOPTP 


2F3C 


3E02 


MVI 


A, EVD 


2F3E 


3262FF 


STA 


CTRLO 


2F41 


3A65FF 


LOA 


IFL6S 


2F44 


E680 


ANI 


VRIFY 


2F46 


C8 


RZ 




2F47 


CD4B3D 


CALL 


FEBFS 


2F4A 


C3D130 


.IMP 


BC105 


2F4D 


GT010 EftU 


$ 


2F4B 


3A65FF 


LDA 


IFLGS 


2F50 


E68C 


ANI 


VRIFY 


2F52 


3A2B80 


LDA 


ICTDI 


2F55 


2A33FF 


LHLD 


CIADR 


2F58 


E9 


PCKL 




2F59 


GTPRM E«0 


$ 


2F59 


215F2F 


LXI 


H, GTMSB 


2F5C 


C3D22F 


J MP 


GT100 


2F5F 


GTMSB E&U 


$ 


2F5F 


322AFF 


STA 


CICSM 


2F62 


2A31FF 


LHLD 


CISPT 


2F65 


2B 


OCX 


H 


2F66 


CA742F 


JZ 


GTQ20 


2F69 


AE 


XRA 


M 



;GET STATUS 
;IN GAP? 

; (CLEAR BYTE READY) 
;N0 - CONTINUE WAITING 
;YES - SET OP RECORD-READING 

; INTERRUPT ROUTINE 



*************** 

6ETCTU - INTERRUPT SERVICE ROUTINES FOR 
CARTRIDGE TAPE READ 

ENTRY C FIRST CALL): 

CTIADR -> GETPRM (WAIT FOR PREAMBL) 
CTICNT = 128 (COUNT FOR EVD GAP) 
CTISPT -> BUF STATUS 
CTIBPT -> FIRST BYTE OF BUFFER 



;GET STATUS 

;C=BYTE RDY # S=GAP 
;BYTE READY - PROCESS 
;N0 GAP - ASSUME TACH & RET 
;TACH EDGE IN GAP - GET STAT 
'256 ;WAITIN6 FOR PREAMBLE? 
;N0 - ASSUME DROPOUT & RETRY 
;YES - 

;DECREMENT GAP LEN6TK COUNT 
;NOT ZERO - CONTINUE WAITING 
;GET POINTER TO BUFFER STATU 
;6ET BIT FOR SELECTED UNIT 
;MARK BUF READY 
;H r L -> TYPE 

;1=EV0 
;STOP THE TAPE 
;MARK TAPE AT EVD 

;VERIFY MODE? 

;N0 - RETURN 

;YES - CLEAR BUFFERS 

;ANO REPORT ERROR 
;PROCESS BYTE 
;CHECK FOR VERIFY MODE 

;6ET DATA 

;G0 TO CORRECT SUBROUTINE 

;GET PREAMBLE BYTE 
;GET MSB NEXT 



;INIT CKSUM 
;SET RECORD TYPE 

;H # L->TYPE 
;READ OR VERIFY? 
; VERIFY - CHECK FOR HIGH BIT 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2F6A 


F21B30 


2F6D 


AE 


2F6E 


322CFF 


2F7t 


C3842F 


2F74 




2F74 


36FF 


2F76 


B7 


2F77 


F27B2F 


2F7A 


34 


2F7B 




2F7B 


2B 


2F7C 


E67F 


2F7E 


77 


2F7F 


FE02 


2F81 


F21B30 


2F84 




2F84 


218A2F 


2F87 


C3D22F 


2F8A 




2F8A 


2A31FF 


2F8D 


2B 


2F8E 


2B 


2F8F 


CA992F 


2F92 


BE 


2F93 


C21B30 


2F96 


212CFF 


2F99 




2F99 


B7 


2F9A 


CAB02F 


2F9D 


35 


2F9E 


CA1B30 


2FA1 


77 


2FA2 




2FA2 


322CFF 


2FA5 


212AFF 


2FA8 


86 


2FA9 


77 


2FAA 


21B72F 


2FAD 


C3D22F 


2FB0 




2FB0 


35 


2FB1 


CAA22F 


2FB4 


C31B30 


2FB7 




2FB7 


2A2FFF 


2FBA 


CAC12F 


2FB0 


BE 


2FBE 


C21B30 


2FC1 




2FC1 


11 


2FC2 


23 


2FC3 


222FFF 


2FC6 


212AFF 


2FC9 


86 


2FCA 


77 


2FCB 


2E2C 


2FCD 


35 



6T020 



6 TO 30 



6T035 



GTLSB 



GT040 



6T050 



6T060 



GTDAT 



GT070 



JP 

XRA 

STA 

JMP 

EQU 

MVI 

ORA 

JP 

INR 

EQU 

OCX 

ANI 

mgv 

CPI 

JP 

EQU 

LXI 

J MP 

EQU 

LHLD 

OCX 

OCX 

JZ 

CMP 

JNZ 

LXI 

EQU 

ORA 

JZ 

OCR 

JZ 

MOV 

EQU 

STA 

LXI 

ADD 

MOV 

LXI 

JMP 

EQU 

OCR 

JZ 

JMP 

EQU 

LHLD 

JZ 

CMP 

JNZ 

EQU 

MOV 

INX 

SHLO 

LXI 

AOO 

MOV 

MVI 

OCR 



RRTRY 

M 

CICNT 

6T035 

$ 

M,377Q 

A 

GTQ30 

M 

$ 

H 

177Q 

N,A 

2 

RRTRY 

$ 

H, GTLSB 

6T100 

$ 

CISPT 

H 

B 

GT040 

M 

RRTRY 

H,CICNT 

$ 

A 

GTG60 

M 

RRTRY 

M^A 

S 

CICNT 

H^CICSM 

M 

M* A 

H^GTOAT 

6T100 

$ 

M 

6T050 

RRTRY 

$ 

CIBPT 

GT070 

M 

RRTRY 

$ 

M,A 

H 

CIBPT 

H^CICSM 

M 

M,A 

L, CICNT 

M 
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ON CFILE MARK) AND 
TYPE = -1 (DATA RECORD) 
DIFFERENT TYPES - ERROR 
;RESTORE MSB 
;SAVE IN CTICNT 
;SET UP FOR LSB 
;READ - 
; NORMAL 
;CMSB=1 => FILE MARK) 

;FILE MARK 

;SAVE MSB (MINUS FILE MARK 
; INDICATOR) IN LENGTH 

;IS MSB IN BOUNDS «=D? 
;N0 - RDRTRY 

;GET LSB NEXT 

;YES - SET STATUS * GET LS 

;CHECK FOR VALID LENGTH 

;GET POINTER TO BUFFER LENGT 

;REAO OR VERIFY MODE? 

;VERIFY - IS LSB SAME AS 
;8UFFER LEN (NO => ERROR) 
;YES - SET H,L TO POINT TO 
THE MSB FOR THE NEXT TEST 

;READ - CHECK LENGTH > AND 
;LEN6TH < 257 

;LSB # 0, CHECK MSB 
;LSB # Q, MSB # 0: ERROR 

; NO-ERROR - SAVE LENGTH 

;UPDATE CHECKSUM 

;SET STATUS = GET DATA 
;6ET DATA NEXT 

;LSB * 0; CHECK MSB 

;IF MSB=0, ERROR 

;ELSE SET LEN=0 # GET DATA 

;ERROR - RETRY 

;GET BUFFER POINTER 
;READ OR VERIFY MODE? 
;VERIFY - SAME AS BYTE IN 
;BUFFER? NO => ERROR 

;STORE BYTE IN BUFFER 



;UPDATE CHECKSUM 



♦256A256 

;DECREMENT COUNT 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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2FCE 
2FCF 
2FD2 
2FD2 
2FD5 
2FD6 
2FD6 
2FD9 
2FDA 
2FBD 
2FE0 
2FE2 
2FE5 
2FE8 
2FEB 
2FEC 
2FED 
2FEE 
2FEF 
2FF2 
2FF5 
2FF7 
2FF8 
2FF9 
2FFC 
2FFB 
2FFF 
3002 
3003 
3003 
3005 
3007 
3009 
300A 
3000 
3010 
3013 
3014 
3017 
3018 
301B 
301B 
301 E 
301 F 
3022 
3023 
3026 
3028 
3029 
302C 

302 F 
3030 
3031 
3034 
3037 
3037 
3039 
303B 
303C 



CO 
21D62F 

2233FF 

C9 

212AFF 

BE 

C21B30 

3A65FF 

E680 

C2542C 

CB502B 

2A31FF 

77 

2B 

7E 

B7 

C20330 

2A2FFF 

2E00 

7E 

3C 

215EFF 

77 

3E01 

CDDD32 

97 

2E61 

3600 

2E47 

BE 

F2582C 

21C528 

22E1FF 

FB 

CDDB2E 

C8 

C3582C 

212BFF 

35 

2162FF 

7E 

CA3730 

F608 

77 

CB582C 

CD3F3Q 

08 
97 

322FFF 
C3F92E 

E6F7 
F610 
77 
C3B92C 



RNZ 
LXI 

6T100 E«0 
SHLD 
RET 

GTCSM EQU 
LXI 
CMP 
JNZ 
LDA 
AMI 
JNZ 
CALL 
LHLD 
MOV 
OCX 
MOV 
ORA 
JNZ 
LHLD 
MVI 
MOV 
INR 
LXI 
MOV 
MVI 
CALL 
SUB 

6T320 E«U 
MVI 
MVI 
MVI 
CMP 
JP 
LXI 
SHLD 
EI 

CALL 
RZ 
JMP 

RRTRY EttU 
LXI 
OCR 
LXI 
MOV 
JZ 
GRI 
MOV 
CALL 
CALL 



RC 

SOB 

STA 

JMP 

EQU 

AMI 

OR I 

MOV 

JMP 



GT420 



H^GTCSM 

$ 

CIAOR 

$ 

H,CICSM 

M 

RRTRY 

IFLGS 

VRIFY 

SPTPO 

6CTBT 

CISPT 

M,A 

H 

A,M 

A 

GT320 

CIBPT 

L,G 

A,M 

A 

H,FLNUM 

M # A 

A # EOF 

STCTO 

A 

$ 

L,RLTAK* 

M,0 

L^XRLIM 

M 

SOPTP 

H,TID00 

CIVEC 

RNEXT 

SOPTP 

$ 

H,CXTRL 

M 

H„CTRLQ 

A,M 

GT420 

STERR 

M,A 

SOPTP 

SRTRY 



A 

CIBPT 

RSTRT 

$ 

-1-STERR 

K0ER1 

M^A 

FDSP1 
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;MORE BYTES - RETURN 
;GET CHECKSUM NEXT 
;UPDATE STATUS FOR NEXT 
;SAVE AOORESS OF NEXT SUBROU 



;GET RUNNING CHECKSUM 
;COMPARE WITH BATA 
;NOT OK- RETRY 
;READ OR VERIFY MODE? 

;VERIFY - CLEAR TACH AND QUI 
;GET BIT FOR SELECTED UNIT 



;FILE MARK? 

;N0 - START NEXT READ 
;YES-GET FILE NUMBER 

;UPDATE CURRENT FILE NUMBER 



;SAVE IN RAM 

;SET END OF FILE STATUS 

;0="FILE MARK" RECORD 

256/256 

; CLEAR GAP-LENGTH COUNTER 
;TRANSFER LIMIT REACHED? 

;YES - STOP TAPE & RETURN 
;SET UP "DO NOTHING" ROUTINE 
;T0 COUNT GAP TACHS WHILE 
;STARTIN6 NEXT READ 

;N0 - START NEXT RECORD 
SUCCESSFUL RDINIT - RETURN 
UNSUCCESSFUL - STOP TAPE 

;CTITRL=0 «> FATAL ERROR (TO 
;MANY RE-READS OF ONE REC) 
;€6ET ERROR BITS> 

;HARD ERROR - QUIT 
;SOFT ERROR - SET BIT 

;STOP THE CTU 

;START THE RETRY {BACK 2 RE C 

THEN FORWARD ONE) 
;RETURN ON ERROR 
;SET POINTER TO FIRST BYTE 

;0F BUFFER 
; START THE RE-READ 
; FATAL ERROR 

;TURN OFF SOFT ERROR BIT 
;SET HARD ERROR FLAG 

;CLEAR THE BAD RECORD 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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303F 
303F 
3042 
3044 
3047 
304A 
3046 
304E 
304F 
3052 
3055 
3055 
3058 
305B 
305 E 
3061 



3A65FF 

E68C 

C25530 

215DFF 

35 

C25530 

34 

21CC3B 

CDD73C 

210200 
C&ED2C 
D4212C 
C4B92C 
C30700 



3064 




3064 


060 1 


3066 


C36B30 


3069 




3069 


0602 


306B 




306B 


1A 


306C 


AO 


3060 


CA7E30 


3070 


CDF030 


3073 


D4092A 


3076 


D26B30 


3079 


CDDB32 


307C 


37 


307D 


C9 



************************ 
STRTRY - SET OP A READ/RECORD RETRY 



» 

r 
r 
r 
r 
r 
* 
r 
# 



SRTRY 



ST500 






B21CT 



B2RCT 



BF2CT 



EXIT : TAPE SPACED BACK TWO €T0 GET OVER 
SCRAPER) AND FORWARD ONE. 
k,H,L DESTROYED 



EGO 

LDA 

AMI 

JNZ 

LXI 

DCR 

JNZ 

INR 

LXI 

CALL 

EOO 

LXI 

CALL 

CNC 

CNZ 

JNP 



$ 

IFL6S 

VRIFY 

ST500 

H # STCNT 

H 

ST 500 

M 

H,RRYMS 

CRDIO 

S 

H # 2 

BKSPR 

CKLPM 

FDSP1 

RTDSP 



;VERIFY «ODE? 

;YES - DON'T TOUCH SFTCNT 
;SFTCNT<-0 => DISPLAY "RETRY 

;MS6 (TOO MANY RETRIES ON 

;ONE PASS) 
;RESET SFTCNT TO t FOR NEXT 

;RETR¥ 
^DISPLAY "RETRY" 

;BACKSPACE TWO RECORDS TO RU 

;TAPE OVER SCRAPER 
;N0 ERR - MOVE TO LP IF BEHN 
;N0 ERR,. NO ADV TO LP - FWB 
; RESTORE DISPLAY AND RETURN 



* * * * * 
BUF2C 
ENTRY 

EXIT 



* ****************** 
T - RECORD I/O BUFFER ON TAPE 

: D # E -> BUFFER STATUS 

MDFL62 WBSR =1 *> WRITE/BS/REAB 

: D # E -> BUFFER STATUS 

NC *> SUCCESS 

BXSTAT XXXCTU CLEARED 

W/BS/R HODE => SUCCESSFUL WRITE 

NOT W/BS/R => SUCCESSFUL WRITE INIT 

C *> FAILURE 

A,B # C,H,L DESTROYED 

;PUT UNIT SELECT FLAG IN B 



EGU 


$ 


KVI 


B,LTCTU 


JHP 


BF2CT 


EftU 


$ 


NVI 


B,RTCTU 


EftU 


$ 


LDAX 


D 


ANA 


B 


JZ 


BC015 


CALL 


WINIT 


CNC 


CM0N1 


iHt 


BF2CT 


CALL 


STCTW 


STC 




RET 





:W0RKIN6 ON THIS BUFFER? 



;THIS BUFFER NOT STARTED - 
;CHECK TAPES ON NO ERROR 
;TRY AGAIN ON NO ERROR 
;WRITE ERROR - SET ERROR FLA 
;C => ERROR 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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307E 




307E 


3A62FF 


3081 


E62G 


3083 


37 


3084 


CO 



3085 
3086 
3087 
3088 
3089 
308A 
308B 
308 E 
3090 
3091 
3093 
3093 
3096 
3097 
309A 
309A 
309D 
30A0 
30A2 
30A5 
30A6 
30A7 
30A9 
30AC 
30AC 
30AF 
30B2 
30B3 
30B5 
30B8 
30B9 
3 OB A 
30BC 
30BD 
30BF 
30C0 
30C3 
30C4 
30C6 
30C7 



30C8 
30C8 
30C9 
30CC 
3QCE 
30D0 
30D1 
30D1 
30D4 



3F 

1B 

1A 

13 

3D 

C8 

3AF3FF 

E620 

C8 

0E09 

CD092A 

D8 

C29330 

210100 

CDED2C 

3E8C 

CD982B 

62 

6B 

3E02 

CDEF2E 

CD092A 

C2AC30 

F5 

3E7F 

CD9E2B 

F1 

f>8 

2E62 

7E 

E6EF 

BE 

C2C830 

1A 

E67F 

12 

C9 



OD 

C2&730 

E6F7 

F664 

77 

21233C 
C3592E 



BC015 



EQU 
LDA 
AN I 
STC 

RNZ 



CTRLO 

WTERR 
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;BOFFER FINISHED - CHECK FOR 
^SUCCESSFUL COMPLETION 



;(SET 

; RE TURN 



CARRY, IN 
ON ERROR 



CASE* 



; *************************** 

; SUCCESSFUL WRITE START * 
; *************************** 



BC030 



BC040 



BC050 



CMC 

DCX 

LDAX 

INX 

DCR 

RZ 

LDA 

AN I 

RZ 

MVI 

EQU 

CALL 

RC 

JNZ 

EQU 

LXI 

CALL 

MVI 

CALL 

MOV 

MOV 

MVI 

CALL 

EQU 

CALL 

JNZ 

PUSH 

MVI 

CALL 

POP 

RC 

MVI 

MOV 

ANI 

CMP 

JNZ 

LDAX 

ANI 

STAX 



MFLG2 

WBSR 

C,9 
$ 

CM0N1 

BC030 
$ 

H,1 

BtCSPR 

A,VRIFY 

SIOFS 

H # D 

L^E 

A„2 

RVERF 

$ 

CM0N1 

BC050 

PSW 

A,-1-VRIFY 

CIOFS 

PSW 

L„CTRLO 

A,M 

-1-HDER1 

M 

BC100 

D 

-1-BFBSY 

D 



;CLEAR ERROR FLAG 
;WHAT TYPE OF RECORD? 

;-1 => NORMAL 

;0 => EOF 

-1 => £VD 
;EVD - DO NOT CHK FOR W/BS/R 
;WRITE/BS/READ MODE? 

;N0 - RETURN CNC => SUCCESS) 
;YES - IN IT ATTEMPTS COUNTER 
;SEE IF RECORD IS DONE 
;TAPE STILL RUNNING? 
;RETURN ON STALL OR NO TAPE 
;STILL RUNNING - WAIT 
;WRITE FINISHED 
^BACKSPACE TO READ 



;PUT IN VERIFY MODE 

itOPt BUF STATUS POINTER 

;ALLOW ONE RE-TRY 

;START THE VERIFY 

;WAIT FOR VERIFY COMPLETION 

;TAPE STOPPED YET? 

;N0 - CONTINUE WAITING 

;YES - SAVE FLAGS 

;TURN OFF VERIFY MODE 
;RECALL FLAGS 

; RETURN ON STALL OR NO TAPE 
;WAS VERIFY SUCCESSFUL? 
;(HRDER1 * 0>? 



;N0 - RE-RECORD 

;RELEASE BUFFER (CLEAR BIT 
;IN BUF STATUS HOLDING BUF 
;FOR UNSPECIFIED UNIT) 



RET 

;*********************************** 

; WRITE ERROR - TRY RE-RECORDING * 
;*********************************** 

BC100 



FATAL ERROR C8 RETRYS>? 



BC105 



EQU $ 

DCR C 

JNZ BC110 ;N0 - INIT RE-RECORD 

ANI -1-STERR ;YES - CLEAR SOFT ERROR BIT 

ORI DTATR+HDERR+WTERR ;SET HARD ERROR 

MOV M,A ;AND "DATA RECORDED" BITS 

EQU $ ; ENTRY FOR BAD EVD READ 

LXI H,WFMSG ;WRITE FAIL MESSAGE 

JMP CUERR ;REPORT ERROR 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 



8080 MACRO ASSEMBLER, VER 2.4 



ERRORS = t PAGE 49 



30D7 
30D7 
3008 
30DB 
30DE 
30E1 
30E2 
30E5 
30E7 
30E8 
30EB 
30EB 
30ED 
30EE 
30EF 



30F0 
30F0 
30F3 
30F5 
30F6 
30F7 
30FA 
30FD 
30FE 
310T 
3103 
3106 
3109 
310C 



-********** 



BC110 



************* 

START RE-RECORDING * 

************* 

$ 



; ********** 



77 

CO3F30 

D4F03O 

2162FF 

7E 

DAEB30 

F628 

77 

C39330 

F660 
77 
37 
C9 



3A55FF 

E601 

CO 

78 

CDFD2B 

CD612B 

D8 

3A63FF 

E604 

212C3B 

C2592E 

CD212C 

08 



BC150 



# 

e 
i 
i 
i 
t 
t 
i 
i 
i 
t 
i 
i 
* 
r 
# 



WINIT 



EftU 

MOV 

CALL 

CMC 

LXI 

MOV 

JC 

ORI 

MOV 

JMP 

EftU 

ORI 

MOV 

STC 

RET 



M#A 

SRTRY 

WINIT 

H,CTRLO 

A,M 

BC150 

STERR+WTERR 

M-A 



;TORN OFF CNTRLO KRDER1 
;BACKSP 2 # FWDSP 1 FOR RETRY 
;RETRY ON NO SPACING ERROR 
;(GET ERROR BITS) 



;ERROR IN WRINIT - 8UIT 

/SUCCESSFUL WRINIT - 



;SET SOFT 
BC030 ;WAIT FOR 
$ ;ERROR IN 

DTATR+WTERR ;SET 

;C => ERROR 



ERROR BITS 
COMPLETION 
WRINIT 
ERROR BITS 



************************ 

WRINIT - START WRITING TAPE RECORD 

ENTRY: B=FLA6 FOR UNIT (1=LFTCTU, 2=RGTCTU) 
# E -> BUFFER STATUS 

EXIT : # E ~> BUFFER STATUS 
NC => NO ERROR 
C *> ERROR 

TAPE STOPPED 

IOCERR*F 

MS6PTX -> ERROR MESSAGE 
A,H,L DESTROYED 



EQU 


S 


LDA 


CMND 


AMI 


RUN 


RNZ 




MOV 


A,B 


CALL 


SLACT 


CALL 


CSCAN 


RC 




LDA 


UNITO 


ANI 


FPS 


LXI 


H,NCMSG 


JNZ 


CUERR 


CALL 


CKLPM 


RC 





;IS TAPE RUNNING? 

;CRUN*1 *> YES> 

;YES - RET (NC => 

/NO - SELECT UNIT 



NO ERROR) 



;TAPE INSERTED? 
/NO - RETURN ERROR 
/TAPE WRITE PROTECTED? 

/(GET PROTECT MESSAGE) 
/YES - REPORT ERROR 
/MOVE TAPE TO LP IF BEFORE L 
; RETURN ON ERRORS 
NO ERRORS - FALL INTO WRSTRT 



************************ 

WRSTRT - START WRITING A RECORD ON TAPE 

ENTRY: D„E -> BUFFER STATUS 
UNIT SELECTED 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
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; EXIT S 





31 OD 
310D 
3110 
3111 
3114 
3117 
3118 
311B 
311E 
311F 
3120 
3122 
3123 
3124 
3125 
3126 
3127 
31 2A 
31 2D 
312D 
312F 
3131 
3134 
3134 
3137 
3138 
3139 
313A 
313B 
31 3D 
313F 
3142 
3145 
3145 
3148 
314B 
314C 
314F 
3152 
3154 
3157 
3158 
31 SB 
315C 
315F 
3162 
3165 



CDA42D 

D5 

CB5E3D 

222FFF 

EB 

2231FF 

CD5G2B 

2F 

A6 

F680 

77 

EB 

1B 

1A 

B7 

CA3431 

F2A331 

1640 
1E19 
C34531 

115EFF 

1A 

77 

3C 

12 

1641 

1E32 

CD702B 

CA7F31 

CD762B 

D27F31 

51 

CD582C 

3AF4FF 

E610 

2124FF 

A6 

C26831 

12 

CD822B 

CCD22D 

210F3B 

C3592E 



WSTRT 



WNORW 



WREOF 



WS020 
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D,E -> BUFFER STATUS 
NC => NO ERROR 

CTU RECORD IN PROGRESS 
C => ERROR 

TAPE STOPPED 

IOCERR = F 

MSGPTX -> ERROR NESSA6ECS> 
A,H,L DESTROYED 



ESU 

CALL 

PUSH 

CALL 

SHLD 

XCH6 

SHLD 

CALL 

CMA 

ANA 

ORI 

NOV 

XCHG 

DCX 

LDAX 

ORA 

JZ 

JP 

EQU 

MVI 

HVI 

JMP 

EQU 

LXI 

LDAX 

MOV 

INR 

STAX 

MVI 

MVI 

CALL 

JZ 

E«U 

CALL 

iNC 

POP 

CALL 

LDA 

ANI 

LXI 

ANA 

JNZ 

STAX 

CALL 

CZ 

LXI 

JMP 



$ 

EDBSP 
D 

GTPTR 
CIBPT 

CISPT 
6CTBT 

M 
BFBSY 

W,A 

D 

D 

A 

WREOF 

WREVD 

$ 

D,DTATR 

E,25 

WS020 

$ 

D,FLNUM 

D 

M,A 

A 

D 

D,DTATR+ 

E # 50 

CKEOF 

WS03G 

$ 

CHKEW 

WS030 

D 

SOPTP 

MFLG1 

EDIT 

H,SPCTU 

M 

WS025 

D 

CKEVQ 

EDWAT 

H,ETMS6 

CUERR 



;BACK OVER EVD IF THERE 
;SAVE POINTER TO BUF STATUS 
;6ET PTR TO 1ST BYTE OF BUF 
;SAVE IT FOR INTERRUPT ROUT 

;SAVE STATUS PTR 
;CLEAR BIT FOR THIS UNIT 
;IN BUF STATUS 

;& SET GENERAL BUST BIT 

;D,E -> STATUS 

;WHAT KIND OF RECORD? 

;-1=>NOR«; 0=>EQF; 1=>EVD 

;WRITE END OF FILE 
;EVD - WRITE 11" GAP 

;"DATA RECORD ED, NOT AT EOF' 
;SET GAP LENGTH FOR IR6 



; INCREMENT FILE NUN ON THIS 

;TAPE 
;1ST BUF BYTE <- NEW FILE NU 



EOF ; M DATA RECORDED, AT EOF" 
;SET GAP LENGTH FOR FILE MAR 
;AT END OF FILE? 
;NO - DON*T CHECK FOR EW 

;PAST EARLY WARNING? 

;NO - CONTINUE 

;VES - 

;STOP THE CTU 

;DOING DATA LOGGING. . . 

;. . -AND SWAPPING CTU'S? 

;YES - SWAP UNITS 

;RELEASE BUFFER FOR EVD WRIT 

;AT END OF DATA NARK? 

;NO - RECORD EVD AND WAIT 

; REPORT END OF TAPE 



DATA LOGGING - SWAP CTU'S AT END OF TAPE 
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FILE 20 
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3168 


WS025 EQU 


$ 


3168 


3E08 


MVI 


A # RCRWD 


31 6A 


C0982B 


CALL 


SIOFS 


3160 


2E40 


MVI 


L,OTDEV 


316F 


7E 


MOV 


A,M 


3170 


E6 03 


AMI 


LTCTU+RT 


3172 


3224FF 


STA 


SPCTU 


3175 


7E 


MOV 


A # M 


3176 


EE03 


XRI 


LTCTU + RT 


3178 


77 


MOV 


M^A 


3179 


2E4F 


MVI 


L,ICERR 


31 7B 


36 FF 


MVI 


M,-1 


3170 


37 


STC 




317E 


C9 


RET 




31 7F 


WS030 EQU 


S 


317F 


2162FF 


LXI 


H # CTRLO 


3182 


7E 


MOV 


A,M 


3183 


E601 


AMI 


EOF 


3185 


7B 


MOV 


A # E 


3186 


CA8A31 


JZ 


US 040 


3189 


87 


AOO 


A 


318A 


WS04G EQU 


* 


318A 


72 


MOV 


M,D 


318B 


2E61 


MVI 


L,RLTAK- 


3180 


F3 


DI 




318E 


96 


SUB 


M 


318F 


322CFF 


STA 


CICNT 


3192 


212232 


LXI 


H,PTPR2 


3195 


2233FF 


SHLO 


CIADR 


3198 


3E2B 


MVI 


A,RUN+FW 


31 9A 


210732 


LXI 


K^TPCTO 


3190 


C0C02A 


CALL 


OTCMO 


31A0 


FB 


EI 




31A1 


D1 


POP 


D 


31A2 


C9 


RET 




31A3 


WREVO EQU 


$ 


31A3 


C0822B 


CALL 


CKEVO 


31 A6 


C4592E 


CMZ 


CUERR 


31 A9 


0AF831 


JC 


US07Q 


31 AC 


C0702B 


CALL 


CKEOF 


31AF 


C20831 


JNZ 


US 060 


31B2 


97 


SUB 


A 


31B3 


12 


STAX 





31B4 


1B 


OCX 


D 


31B5 


3C 


INR 


A 


31B6 


12 


STAX 





31B7 


13 


INX 


D 


31B8 


13 


INX 





31B9 


C5 


PUSH 


B 


31BA 


C0582C 


CALL 


SOPTP 


31BD 


CO502B 


CALL 


GCTBT 


31C0 


47 


MOV 


B,A 


31C1 


1A 


LOAX 


D 


31 C 2 


BO 


ORA 


B 


31 C3 


12 


STAX 


D 


31C4 


C06B30 


CALL 


BF2CT 


31C7 


CI 


POP 


B 


31C8 


0AF831 


JC 


US 070 


31CB 


WS050 EQU 


$ 


31CB 


CDG92A 


CALL 


CM0N1 



;SET FLAG SO CTMOM WILL 
;REWIND THIS UNIT 

;SAVE THIS UNIT NUMBER 
;FOR REWIND 

ru 

; (BORROW SWPCTU> 
;SUAP UNITS 

ru 

;-1 => TRY PUTIO AGAIN 
;SET ERROR FLAG 



;6ET CURRENT STATUS 
;AT ENO OF FILE? 
;(GET GAP LENGTH) 

;YES - DOUBLE GAP LENGTH 

;STORE NEW STATUS 
BASE 

;MUST NOT MISS GAP TACK EDGE 
;SUBTRACT CURRENT GAP LENGTH 
;DOWN~COUNTER FOR INT- ROUT. 
;WRITE 2N0 PREAM BYTE ROUTIN 

D+REC+6EN 

;SET UP TO RECORD GAP # IF NO 
;DOING SO ALREADY 

;0 # E -> BUFFER STATUS ON EX I 
;OUTCM0 SETS NC 
; WRITE AN EVO MARK 
;ALREADY AT ENO OF DATA? 
;YES - REPORT ERROR 

;ANO QUIT 
;AT END OF FILE? 
;YES - WRITE EVO 
= N0 - SET UP BUF FOR EOF 



;MARK LENGTH * 1 



;©,E -> STATUS FOR BUF2CT 

;8UF2CT REQ'S STOPPED TAPE 
;BUF2CT REQ»S B=UNIT 
;(BUF2CT CKS EOF IF W/BS/R 
;MARK BUFFER FOR THIS UNIT 



;6Q WRITE THE EOF 

; RETURN ON ERROR 
;WAIT FOR EOF TO BE FINISHED 
; CHECK FOR REMOVED TAPES 
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31CE 


DAF831 


31D1 


C2CB31 


31D4 


18 


31D5 


3E01 


31D7 


12 


31D8 




31 D8 


13 


3109 


1A 


31 OA 


E67F 


310C 


12 


31 DD 


3E6F 


31DF 


2161FF 


31E2 


F3 


31E3 


96 


31E4 


6F 


31E5 


2601 


31 E7 


2233FF 


31EA 


3E2B 


31EC 


21FA31 


31EF 


CDC02A 


31F2 


FB 


31F3 


3E02 


31 F5 


3262FF 


31F8 




31 F8 


D1 


31 F9 


C9 



3207 




3207 


3E00 


3209 


322B80 


320C 


86 


3200 


FO 


320E 


2E2C 


3210 


35 


3211 


CO 


3212 


211A32 


3215 


3E0B 



WS060 



WS070 



JC 


WS070 


JHZ 


WS050 


DCX 





HVI 


A,,1 


STAX 





EGU 


$ 


INX 





LOAX 





ANI 


-1-BFBST 


STAX 





MVI 


A # 111 


LXI 


H^RLTAK 


01 




SUB 


H 


MOV 


L,A 


MVI 


H^1 


SHLO 


CIAOR 


KVI 


A,RUN+FW 


LXI 


H,TWEVD 


CALL 


OTCMD 


EI 




HVI 


A # EVD 


STA 


CTRLO 


EQU 


$ 


POP 





RET 
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;RETURN ON ERROR 

;TAPE STILL RUNNING - WAIT 
^RESTORE BUFFER TO EVO 

;C1 = EVO> 

;RECORD EVD 
;RELEASE BUFFER 



;LOW BYTE OF EVD LENGTH 

;HOLD OFF TACH INTERRUPTS 
^SUBTRACT CURRENT GAP LENGTH 
;H,L <- 11" EVO ♦ 1.76" FILE 
;MARK - .21" STOP DISTANCE 
;USE CTIAOR FOR DOWN COUNTER 
D+REC+GEN 

;SET UP INTR ROUT AND START 
;IF NOT DOING SO ALREADY 

;WARK TAPE AT EVO 



;D # E -> BUFFER STATUS 
;RETURN - OUTCRD SETS NC 



31FA 


T 


31FA 


7E 


31FB 


B7 


31FC 


FO 


31 FO 


2E33 


31FF 


35 


3200 


CO 


3201 


23 


3202 


35 


3203 


C8 


3204 


C3582C 



INTERRUPT ROUTINE COUNTS EVD GAP 



TWEVD 



EQU 


$ 


MOV 


A,H 


ORA 


A 


RP 




HVI 


L^CIADR 


OCR 


M 


RNZ 




INX 


H 


OCR 


M 


RZ 




JKP 


SOPTP 



;TEST STATUS 

; RETURN ON NO TACH 
;DECREMENT COUNTER 
;GAP FINISHED? 
;N0 - RETURN 
;»,L -> HIGH BYTE 

;N0 - RETURN 

;YES - STOP THE TAPE 



****** ****************** 
PUT6AP - RECORD A GAP ON TAPE 

THE FOLLOyiNG INTERRUPT ROUTINE OUTPUTS A 
GAP OF CTICNT TACH EDGES 



TPCTO EQU $ 



MVI 

STA 

ORA 

RP 

RVI 

OCR 

RNZ 

LXI 



A # 
ICTDO 

M 

L,CICNT 

K 

H,TPCT1 



;CLEAR BYTE READY,. AND PREPA 

;FOR 1ST PREAMBLE BYTE 
;CHECK TACH 
;N0 TACH - RETURN 
; DECREMENT TACH COUNTER 
;=0? 

;N0 - KEEP 
;YES - GET 



GENERATING GAP 
CTU-WRITING ROUT I 



MVI A # RUN+FWD+REC ;TURN OFF GAP 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
F ILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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3217 C3C02A 



321A 
321A 
321B 
321D 
321E 
3221 
3222 
3222 
3223 
3226 
3229 
3229 
322A 
322B 
3230 
3230 
3232 
3235 
3238 
3238 
323B 
323C 
323D 
323E 
323F 
3241 
3244 
3245 
3245 
3246 
3247 
324A 
324C 
324C 
324F 
3252 
3255 
3255 
3258 
3259 
325A 
325D 
325E 
3261 
3262 
3265 



7E 

E640 

C8 

2A33FF 

E9 

97 

212932 

C38432 

97 

213C32 

C38432 

3E80 

213832 

C38432 

2A31FF 

2B 

2B 

7E 

B7 

3EQC 

C24532 

3C 

23 

BE 

DA4C32 

F680 

322AFF 
215532 
C38432 

2A31FF 

2B 

2B 

3A2AFF 

86 

322AFF 

7E 

322CFF 

216B32 



z * 



* 

r 



r 
* 

TPCT1 



JMP QTCMD 



*********************** 

PUTCTU - INTERRUPT SERVICE ROUTINES FOR CTU 
WRITE 



PTPR2 



PTPR3 



PTPR4 



PTMSS 



ENTRY 



PT020 



PT030 



PTLSB 



EQU 

MOV 

ANI 

RZ 

LHLD 

PCHL 

EQU 

SUB 

LXI 

IMP 

EQU 

SUB 

LXI 

JMP 

EQU 

MVI 

LXI 

JMP 

EQU 

LHLD 

OCX 

DCX 

MOV 

ORA 

MVI 

JNZ 

INR 

EQU 

I NX 

CMP 

JC 

ORI 

EQU 

STA 

LXI 

JMP 

EQU 

LHLD 

DCX 

OCX 

LDA 

ADD 

STA 

MOV 

STA 

LXI 



(FIRST INTERRUPT): 
CTIADR -> PUTPR1 (1ST PREAMBLE BYTE) 
CTICNT = LEN6TH OF GAP IN TACH EDGES 
CTISPT -> BUF STATUS 
CTIBPT -> FIRST BYTE OF BUFFER 



$ 

A,M 
RDY 

CIADR 

$ 

A 

H # PTPR3 

PT100 

$ 

A 

H # PTPR4 

PT100 

S 

A, 200a 

H # PTMSB 

PT100 

$ 

CISPT 

H 

H 

A,M 

A 

A # 

PT020 

A 

$ 

H 

M 

PT030 

200Q 

$ 

CICSM 

H^PTLSB 

PT100 

$ 

CISPT 

H 

H 

CICSM 

M 

CICSM 

A,M 

CICNT 

H,PTDAT 



;GET STATUS 

;READY FOR BYTE? 

;N0 - EXIT 

;DECIDE WHICH BYTE TO WRITE 

;SECOND PREAMBLE BYTE = 
;<FIRST BYTE WRITTEN BY 
;PUTGAP) 

;THIRD PREAMBLE BYTE = C 



; FOURTH PREAMBLE BYTE = 200B 



;WRITE RECORD LENGTH MSB 
;H,L -> STATUS 
;H,L -> TYPE 
;H,L -> LENGTH 



;LEN6TH # => MSB = 

;LENGTH = => 256 (MSB * 1) 

;H,L->TYPE €-1=>N0RM; 0=>EOF 
;C»>NORM; NC=>EOF 

;HIGH BIT OF MSB ON =>-EOF 

;START CHECKSUM COMPUTATION 
;WR1TE LSB NEXT 

;WRITE RECORD LENGTH LSB 



;H r L -> LENGTH LSB 
; AC CUMULATE CHECKSUM 



;GET LENGTH LSB 
;START BYTE COUNTER 
;PUT DATA NEXT 



FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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3268 
3268 
326B 
326E 
3271 
3272 
3275 
3276 
3277 
327A 
3270 
327E 
3281 
3284 
3284 
3287 
3287 
328A 
328B 
328B 
328E 
3291 
3294 
3294 
3296 
3299 
329C 
329E 
32A1 
32A1 
32A2 
32A5 
32A8 
32A9 
32AA 
32AD 
32B0 
32B2 
32B5 
32B8 
32B9 
32BC 
32BE 
32C1 
32C2 
32C5 
32C6 
32C8 
32C9 
32CA 
32CD 
32CE 
3201 
3202 
3203 
3206 
3209 
320A 
320B 
32DB 



C38 432 

2A2FFF 

3A2AFF 

86 

322AFF 

7E 

23 

222FFF 

212CFF 

35 

C28732 

218B32 

2233FF 

322B8Q 
C9 

3A2AFF 
219432 
C38432 

3E05 

322CFF 

21A132 

3EQ1 

C38432 

97 

322B80 

212CFF 

35 

CO 

3261FF 

21C528 

3E2B 

COC02A 

3A0B8Q 

FB 

3AF3FF 

E620 

C2582C 

05 

2A31FF 

7E 

E67F 

77 

EB 

C05Q2B 

6F 

C05330 

1A 

A5 

CC582C 

C40031 

01 

00 

3E20 



PTOAT 



PT100 
PT200 

PTCSM 
PTP01 



PTPOS 



STCTW 



JMP 

EttU 

LHLO 

LOA 

ADD 

STA 

MOV 

INX 

SHLO 

LXI 

OCR 

JNZ 

LXI 

EOU 

SHLO 

ECU 

STA 

RET 

EOU 

LOA 

LXI 

JHP 

e«u 

MVI 

STA 

LXI 

MVI 

JMP 

E90 

SUB 

STA 

LXI 

OCR 

RNZ 

STA 

LXI 

MVI 

CALL 

LOA 

EI 

LOA 

ANI 

JNZ 

PUSH 

LHLO 

MOV 

ANI 

MOV 

XCH6 

CALL 

MOV 

CALL 

LOAX 

ANA 

CZ 

CNZ 

POP 

RNC 

EOU 

MVI 



PT100 

$ 

CIBPT 

CICSM 

M 

CICSM 

A # M 

H 

CIBPT 

H,CICNT 

M 

PT200 

H^PTCSM 

$ 

CIAOR 

$ 

ICTOO 

$ 

CICSM 

R # PTP01 

PT100 

$ 

A„5 

CICNT 

H, PTPOS 

A,1 

PT100 

$ 

A 

ICTOO 

H # CICNT 

M 

RLTAK 
H # TIDOO 
A,RUN + FW 
OTCMO 
ICTSI 

MFLG2 

WBSR 

SOPTP 



CISPT 

A,M 

-1-BFBSY 

M,A 

6CTBT 

L,A 

C6BUF 



L 

SOPTP 

WSTRT 





A,WTERR 



;WRITE A DATA BYTE 

;6ET POINTER INTO BUFFER 

ACCUMULATE CHECKSUM 



;GET BYTE 

;POINT TO NEXT BYTE 

;SAVE POINTER 

; COUNT DOWN 

;OUT OF BYTES YET? 

;N0 

;YES - WRITE CHECKSUM NEXT 

;UPDATE POINTER TO SERVICE 

; OUTPUT BYTE 



;WRITE CHECKSUM 
;GET CHECKSUM 
;PUT 1ST POSTAMBLE 



BYTE NEXT 



; FIRST POSTAMBLE BYTE = 1 
;SET UP REST OF POSTAMBLE - 

;3 BYTES "0** ANO 2 TO MAKE 

;SURE THEY ARE OUT 
;6ET FIRST BYTE 

; POSTAMBLE 

; OUTPUT A *0" 

;ALL FIVE BYTES OUT? 

;N0 - WAIT FOR MORE 
;CLEAR TACH-6AP COUNTER 
;SET UP "00 NOTHING" ROUTINE 
D+REC+GEN 

;START REC0R0IN6 GAP 
; CLEAR ANY PENDING INTERRUPT 
; ENABLE INTERRUPTS 
;WRITE/BS/READ MODE? 

;IF S0 # QUIT 
;SAVE ANO E 
;FREE THE BUFFER 



D,E -> STATUS 
GET BIT FOR THIS CTU 
SAVE TO TEST OTHER BUF 
D,E -> STATUS FOR OPP BUF 
UNIT BIT SET »> BUF READY 
;FOR THIS UNIT TO RECORD 
BUF NOT READY - STOP TAPE 
BUF REAOY - START WRITING 
RESTORE REGISTERS 
NO ERRORS - RETURN 
ERROR - SET WRITE ERROR FLA 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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32E3 
32E3 
32E6 
32E7 
32E8 
32 EB 
32EE 
32F1 
32F4 
32F5 
32F8 
32F9 
32FC 
32FE 
3301 
3301 
3304 
3307 
330A 
330D 
330E 



J******************************** 

; SETCTO - SET FLAG IN "CNTRLO" * 
; ******************************** 

; ENTRY: A = FLAG TO BE SET 

t 







t 


* m. 


H # L * CNTRLO 


32DD 




STCTO 


equ 


$ 


32D0 


2162FF 




LXI 


H„CTRL0 


32EO 


B6 




ORA 


M ;ADD IN FLAG 


32E1 


77 




MOV 


M,A ;UPDATE FLAG VALUE 


32E2 


C9 




RET 


; RETURN 



CD352E 

D8 

CO 

3A4EFF 

CDFD2D 

CDC62D 

CD822B 

C8 

CD762B 

D8 

211633 

3E03 

CDCQ2A 

CD2E2B 

DA582C 

CD092A 

C20133 

D8 

3EFD 



-************************ 



EVDRED - READ BEYOND EVD 

ENTRY: D0N*T CARE 

EXIT : TAPE POSITIONED JUST BEYOND FIRST 
DATA BLOCK AFTER EVD 6AP 

COMMAND IGNORED IF NOT AT EVD OR RECORDING 
OR IF INPUT DEVICE IS NOT CTU. 



t 
* 

r 
i 
# 





EDRED 



ER050 



EQU 

CALL 

RC 

RNZ 

LDA 

CALL 

CALL 

CALL 

RZ 

CALL 

RC 

LXI 

MVI 

CALL 

EQU 

CALL 

JC 

CALL 

JNZ 

RC 
MVI 



$ 

BYCKQ 



IPDEV 
SLACT 
RVEVD 
CKEVO 

CHKEW 



RG 



;IS TAPE SELECTED AND FREE? 
; RETURN ON USER INTERRUPT 
;RETURN ON NOT SELECTED 
;(GET INPUT DEV FOR SELECT 

;YES - SELECT UNIT 

;URITE EVD IF RECORDING 

;AT EVD ALREADY? 

;N0 - RETURN 

;PAST EARLY WARNING? 

;YES - QUIT 

;SET UP INTERRUPT ROUTINE 



H # TED 

A,RUN+FWD ;RUN FORWARD 

OTCMD 

$ 

RTSCN 

SOPTP 

CM0N1 

ER050 



; ********** 
; CLRCTO - 



;USER INTERRUPT? 
;YES - STOP TAPE AND QUIT 
;IF NOT, TAPE ERROR? 
;TAPE STILL RUNNING - WAIT 
;RETURN IF ANY ERRORS 
A,-1-EVD ;N0 ERRORS - CLEAR EVD FLAG 
************************ 

CLEAR FLAG IN "CNTRLO" * 
************************ 



ENTRY: A = -1-CFLAG TO BE CLEARED) 

EXIT : A = NEW VALUE FOR "CNTRLO" 
H,L = CNTRLO 



3310 



CRCTO EQU $ 
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3310 
3313 
3314 
3315 



2162FF 
A6 
77 
C9 



3316 
3316 
3317 
3319 
331A 
3310 
3320 



3321 
3321 
3322 
3324 
3325 



7E 

E62C 

CO 

212133 

22E1FF 

C9 



7E 

E62Q 
C8 
C3542C 



LXI H # CTRLG 

ANA M 

NOV M # A 
RET 

i 

I ************* 

; INTERRUPT R 
;************* 

TEORO EQU $ 

MOV A # M 

ANI GAP 

RNZ 

LXI H # TEDR1 

SHLD CIVEC 

RET 

; ************* 

; INTERRUPT R 
• ************* 

TEDR1 EQU $ 

MOV A,M 

ANI GAP 

RZ 

.IMP SPTPO 



;CLEAR THE FLAG BIT 
; STORE NEW VALUE 
;RETURN 



***************************** 

OUTINE - RUN TO END OF GAP * 
***************************** 



;6ET CTSTAT 
;END OF SAP YET? 
;NQ - CONTINUE WAITING 
;YES - SET UP ROUTINE TO 
;WAIT FOR GAP 



************************************ 

OUTINE - RUN TO START OF NEXT GAP * 
************************************ 



;GET CTSTAT 
; START OF NEXT 
;N0 - CONTINUE 
;YES - QUIT 



GAP TET? 
WAITING 



************************ 

USRCMR - COMPARE ONE RECORD 
USRCMF - COMPARE ONE FILE 
USRCMA - COMPARE ALL DATA 
(USER-INITIATED VERSIONS) 

ENTRY: INPDEV, OUTDEV EACH INDICATE ONE 
DISTINCT DEVICE 

EXIT r ALL REGISTERS DESTROYED 



3328 
3328 
3329 
3329 
332A 
332A 
332B 



05 
05 

37 

C3FE3E 



URCMR 
URCMF 
URCMA 



EQU $ 

DCR B 

EQU $ 

DCR B 

EQU $ 

STC 

.IMP XRD2D 



; COMPARE ALL 

;TRANSFER LIMIT = -1 
;COMPARE FILE 

;TRANSFER LIMIT = 
;COMPARE ALL (LIMIT = 1) 
;C => COMPARE 



r 

# 

■ 
t 

r 

I 
t 
r 
r 
r 
e 
# 
i 
I 
m 



* * 



* * * * ****************** 
CMPBFS - COMPARE I/O BUFFERS 

ENTRY: B = FILE ft (USED FOR ERROR REPORT* 
C = REC # (USED FOR ERROR REPORT) 
CMPLIM = LIMIT OF COMPARE 
I0BUF1 AND I0BUF2 CONTAIN RECORDS 
TO BE COMPARED 

EXIT : C -> ERROR 

MESSAGE SET UP IN MSGPTX 
A-L DESTROYED 
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r 




A = 




i 
t 




A„0 


332E 


CPBFS EQU 


$ 


332E 


2139FF 


LXI 


H,B1TYP 


3331 


1136FF 


LXI 


D r B2TYP 


3334 


1A 


LDAX 





3335 


BE 


CMP 


H 


3336 


CA5833 


JZ 


CB100 


3339 


F23033 


JP 


CBG10 


333C 


EB 


XCH6 




3330 


CB010 EQU 


$ 


333D 


1A 


LOAX 





333E 


B7 


ORA 


A 


333F 


21333C 


LXI 


H,EFMSG 


3342 


CA4833 


JZ 


CB040 


3345 


21203B 


LXI 


H,EDMS6 


3348 


GB040 EQU 


$ 


3348 


22F1FF 


SKLO 


M6PT1 


334B 


13 


INX 





334C 


1A 


LOAX 





334D 


E601 


ANI 


LTCTU 


334F 


C06A2E 


CALL 


STPM1 


3352 


1A 


LOAX 





3353 


E603 


ANI 


LTCTU+RT 


3355 


37 


STC 




3356 


CO 


RNZ 




3357 


C9 


RET 




3358 


CB100 EQU 


$ 


3358 


B7 


ORA 


A 


3359 


FO 


RP 




3 35 A 


CB300 EQU 


$ 


335A 


3A38FF 


LOA 


B1LEN 


3350 


2135FF 


LXI 


H,82LEN 


3360 


BE 


CMP 


M 


3361 


CAA733 


JZ 


CB350 


3364 


213F3C 


LXI 


H,DRMSG 


3367 


22F1FF 


SHLO 


MGPT1 


336A 


21323C 


LXI 


H # NLMS6 


3360 


22EFFF 


SHLO 


M6PT2 


3370 


CB310 EQU 


$ 


3370 


21E13B 


LXI 


H,EPMS6 


3373 


22E0FF 


SHLO 


M6PT3 


3376 


22E9FF 


SHLO 


M6PT5 


3379 


22E5FF 


SHLO 


HGPT7 


337C 


2130FF 


LXI 


H^BDBUF 


337F 


3A46FF 


LOA 


CPLIM 


3382 


B7 


ORA 


A 


3383 


FAA533 


JM 


CB330 


3386 


CA9833 


JZ 


CB320 


3389 


22E7FF 


SHLO 


MGPT6 


338C 


78 


MOV 


A,B 


3380 


C0CC3C 


CALL 


OP MUM 


3390 


EB 


XCH6 




3391 


217C3C 


LXI 


H # FLMSG 


3394 


22E9FF 


SHLO 


MGPT5 


3397 


EB 


XCH6 
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NC => RECOROS IDENTICAL 
= RECORO TYPE 
0-L DESTROYED 



;H,L -> TYPE OF FIRST BUFFER 
;D,E "> TYEP OF SECOND BUFFE 
;C0MPARE BUFFER TYPES 

;SAME - COMPARE CONTENTS 

;BUF 2 GREATER 

;BUF 1 GREATER 

;DIFF TYPES; D,E->GREATER 

;6ET LARGER TYPE NUMBER 

;WHAT TYPE OF BOUNDARY? 

;ENO OF FILE MESSAGE 
;EOF - 
;EVD - 

; STORE ERROR TYPE 
;0 # E -> BUFFER STATUS 
;GET UNIT CAUSIN6 ERROR 
;WAS IT THE LEFT CTU? 
;SET UP MESSAGE 
;IS ERROR UNIT A CTU? 
CTU 

;CFLA6 ERROR* 
;YES - QUIT 

;REC0RDS SAME TYPE 

;WHAT KIND OF RECORDS? 

; RETURN IF NOT DATA RECORDS 

;DATA RECORDS - 

; COMPARE LENGTHS 

;ARE THEY THE SAME? 
;YES - CHECK CONTENTS 
;N0 - REPORT ERROR 
^DIFFERENT LENGTH RECORDS" 
;N0 MESSAGE - ALLOWS FOLLOWN 

;T0 HANDLE DIFF BYTES TOO 
; DECIDE WHETHER TO PRINT FIL 

; AND /OR RECORD NUMBERS 
;PUT AN END OF MSG IN EVERY 

;P0SSIBLE LOCATION 

;H,L -> BUF POSITION FOR NEX 

DIGITAL OUTPUT 
;WHAT IS THE COMPARE LIMIT? 

;ONE RECORO - PRINT NO MORE 
;FILE - PRINT RECORD NUMBER 
;ALL - PRINT FILE NUMBER, TO 
;A <- FILE NUMBER 

;SAVE DIGIT PTR 
;", FILE" 

;GET 0I6IT PTR BACK 
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3398 




CB320 


EQU 


$ 


;REPORT RECORD NUMBER 


3398 


22EBFF 




SHLD 


M6PT4 


;PGINTER TO DIGITS 


339B 


79 




MOV 


A,C 


;A <- RECORD NUMBER 


339C 


CDCC3C 




CALL 


DPNUM 




339F 


216F3C 




LXI 


H # RCMS6 


;", RECORD" 


33A2 


22EDFF 




SHLD 


M6PT3 




33A5 




CB330 


EQU 


$ 


^RETURN 


33A5 


37 




STC 






33A6 


C9 




RET 






33A7 




CB350 


EQU 


$ 


^LENGTHS SAME, COMPARE CONTN 


33A7 


2100FC 




LXI 


H,IBUF1 


;6ET POINTERS TO BUFFERS 


33AA 


1100FD 




LXI 


D,,IBUF2 




33AD 


C5 




PUSH 


B 


;SAVE B # C 


33AE 


3A38FF 




LDA 


B1LEN 




33B1 


4F 




MOV 


C„A 


;C-REG USED AS DOWN-COUNTER 


33B2 




CB360 


EQU 


$ 


;COHPARE ONE BYTE 


33B2 


1A 




LOAX 


D 




33B3 


BE 




CMP 


M 




33B4 


23 




INX 


B 


;UPDATE POINTERS 


33B5 


13 




INX 


D 




33B6 


C2C133 




JNZ 


CB370 


;DIFFERENT - REPORT ERROR 


33B9 


OD 




OCR 


C 


;FINISHED? 


33BA 


C2B233 




JNZ 


CB360 


;N0 - TEST NEXT BYTE 


33BD 


C1 




POP 


B 


;IDENTICAL DATA RECORDS 


33BE 


3EFF 




MVI 


A,-1 


;-1 -> DATA RECORDS 


33C0 


C9 




RET 






33C1 




CB370 


EQU 


$ 


;REPORT DIFFERENT BYTES 


33C1 


21563C 




LXI 


H,DF«S& 


;"DIFFERENCE IN BYTE" 


33C4 


22F1FF 




SHLD 


MSPT1 




33C7 


219AFE 




LXI 


K,DPSTR+ 


75 


33CA 


22EFFF 




SHLD 


M6PT2 


; POINT TO BYTE NUM DIGITS 


33CD 


7B 




MOV 


A,E 


;LO*f BYTE OF BUF PTR IS BYT 


33CE 


CDCC3C 




CALL 


DPNUM 


;CONVERT BYTE NUM TO DECIMAL 


33D1 


C1 




POP 


B 


; RE CALL FILE AND RECORD NUMS 


33D2 


C37033 




.IMP 


CB310 


;REPORT FILE AND/OR RECORD # 






;************************* 






; ACCUMULATE UNIT STATUS * 






; ************************* 


3305 




STLCT 


EQU 


$ 


;GET STATUS FOR LEFT CTU 


33D5 


0601 




MVI 


B„LTCTU 


;BIT FOR LEFT TAPE 


33D7 


3E10 




MVI 


A^USL 


;LEFT TAPE SELECT 


33D9 


C3DF33 




J MP 


STCT 




33DC 




STRCT 


EQU 


$ 


;GET STATUS FOR RIGHT CTU 


33DC 


0602 




MVI 


B # RTCTU 




33DE 


97 




SUB 


A 




33DF 




STCT 


EQU 


$ 




33DF 


2155FF 




LXI 


H,CMND 


;IS THIS UNIT SELECTED? 


33E2 


AE 




XRA 


M 


;CCHECK SELECT OF LAST CMD 


33E3 


E61Q 




ANI 


USL 




33E5 


7E 




MOV 


A,M 


;(6ET COMMAND! 


33E6 


2163FF 




LXI 


B^UNITO 


;CAND POINTER TO STATUS) 


33E9 


CAEF33 




JZ 


SC01O 


;YES ■ - 


33EC 


2E5C 


r 


MVI 


L,.STCNT- 


1*256/256 ;NO - GET PTR TO 
OTHER STATUS WORDS 


33EE 


97 




SUB 


A 




33EF 




scoio 


EQU 


$ 




33EF 


E601 




ANI 


1 


;C<-1 => BUSY (UNIT SELECTED 


33F1 


4F 




MOV 


C # A 


;RUNNING) 


33F2 


56 




MOV 


D r M 


;D <- UNITO 
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33F3 
33F4 



33F5 



2B 
5E 



DCX 

MOV 



H 
E, 



M ;E <- CNTRLO 
********* 

• 1 (LEFT CTU) OR 2 (RIGHT CTU> 
= 1 => BUSY; C = *> NOT BUSY 



^ ************************************* ************ 

: B 



2E4B 



* 
* 
* 

C> => NOT USED FOR STATUS * 
10 - CMDEXC 100 - (LP) * 
20 - 200 - EV * 

40 - (BOT) * 

* 

* 
10 - SFTERR 100 - DATATR * 

20 - (HRDER1) 200 * 

40 - WRTERR * 

;************************************************* 

MVI L,ISTA3 

; ******************************* 

i ACCUMULATE 3RD STATUS BYTE * 
;******************************* 



= UNITO 

1 - LPM 

2 - €LSTFWD> 
4 - FPS 

= CNTRLO 

1 - EOF 

2 - EVD 

4 - HRDERR 



33F7 


3A66FF 




LDA 


CSTAT 




33FA 


AO 




ANA 


B 


;TAPE INSERTED? 


33FB 


C20534 




JNZ 


SC020 




33FE 


77 




MOV 


M,A 


;N0 - STAT3 - 


33FF 


2B 




DCX 


H 




3400 


3601 




MVI 


M # 1 


;STAT2 = 1 (BUSY) 


3402 


2B 




DCX 


H 




3403 


77 




MOV 


Pf jr A 


;STAT1 = 


3404 


C9 




RET 






3405 




SC020 


EOU 


$ 


;YES - 


3405 


3E01 




MVI 


A,1 


;SET "TAPE INSERTED" 


3407 


B3 




ORA 


E 




3408 


E60F 




AN I 


HDERR+STERR+EVD+1 


340A 


77 




MOV 


M,A 




34 OB 


2B 




DCX 


H 








;******************************* 






; ACCUMULATE 2ND STATUS BYTE * 






I ************* ****************** 


340C 


7A 




MOV 


A,D 




340D 


E60C 




ANI 


FPS+CDEXC 




340F 


B1 




ORA 


C 


;ADD BUSY BIT 


3410 


4F 




MOV 


C,A 


;TEHPORARY STORAGE 


3411 


7B 




MOV 


A„E 


;ANV ERRORS? 


3412 


E60C 




ANI 


HOERR+STERR 


3414 


CA2034 




JZ 


SC030 


;N0 - 


3417 


7B 




MOV 


A,E 


;YES - READ OR WRITE? 


3418 


2F 




CMA 






3419 


E620 




ANI 


WTERR 




341B 


CA2034 




JZ 


SCQ3Q 


jWRITE ERROR 


341E 


3E02 




MVI 


A, 2 


;READ ERROR, SET BIT 


3420 




SC030 


EQU 


$ 




3420 


B1 




ORA 


C 




3421 


77 




MOV 


M, A 




3422 


2B 




DCX 


H 





~ 1 



3423 
3424 



7A 
E681 



******************************** 

; ACCUMULATE 1ST STATUS BYTE * 
^ ******************** *********** 

MOV A,D 

ANI LPM+EW 
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RLC 
RLC 
MOV 
MOV 
AMI 
JP 
AMI 
SCQ40 EQU 
RLC 
RLC 
RLC 
ORA 
MOV 
RET 
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3426 


07 


3427 


07 


3428 


4F 


3429 


7B 


342A 


E6A1 


342C 


F23134 


342F 


E620 


3431 




3431 


07 


3432 


07 


3433 


07 


3434 


B1 


3435 


77 


3436 


C9 



344D 
3440 
3450 
3451 
3454 
3454 
3456 
3459 
345C 
345F 
3462 
3462 
3465 
3466 
3469 



C,A 
A,E 
EOF+WTERR+EFINH 



;TEMPORARY STORAGE 



SC040 
HTERR 
$ 



C 

K,rA 



;INHI8IT REPORTING EOF? 
;YES - TURN IT OFF 



3437 




3437 


DA2B 


3439 


6C34 


343B 


CF34 


343D 


3536 


343F 


402C 


3441 


B12D 


3443 


DD2D 


3445 


5C36 


3447 


7134 


3449 


2A37 


344B 


3237 



C03B2E 

D8 

CD012E 

3E08 

CDE328 

3AD8FF 

213734 

C3AD41 

C&3B2E 
08 

CB2E2E 
C35434 



346C 




346C 


0601 


346E 


CDC62D 


3471 




3471 


3E03 


3473 


CD1033 


3476 


CD612B 


3479 


D8 



I ******************************* 

; CONTROL FUNCTION ENTRY TABLE * 

^ ******************************* 

CCTLT EQU $ 

DW RDBOT ;REWIND TO BEGINNING OF TAPE 

DW SCPRC ;SPACE OVER P RECORDS 

DW SCPFL ;SPACE OVER FILES OR TO #P 

DW SREVD ;LOCATE EVD MARK 

DW EDBAK ; CONDITION TAPE 

DW EOFC ; RECORD FILE RARK 

DW EVDC ;RECORD EVD MARK 

DW TTCTU ;RELIABILITY TEST FOR CTU 

DW RHSPC ;SPACE WITH NO EVD RECORDING 

DW SWBSR ; ENTER WR ITE/BAKSPC/READ MOD 

DW CW8SR ;EXIT WRITE/BAKSPC/READ MODE 

• *********************************** 

; PERFORM CONTROL FUNCTIONS ON CTU * 
;*********************************** 
CtLCT EQU S 

CALL BYCHK 

RC 

CALL SLLCT 
CTLCT EQU $ 

MVI A # CDEXC 

CALL SUNTO 

LDA ICTYP 

LXI H, CCTLT 

.IMP IDJMP 
CLRCT EQU $ 

CALL BYCHK 

RC 

CALL SLRCT 

JMP CTLCT 



; CHECK WHETHER CTU BUSY 
^RETURN ON USER INTERRUPT 
;SELECT LEFT CTU 

;SET "COMMAND EXECUTED" BIT 

;GET CONTROL CODE 
;GET TABLE BASE ADDRESS 
;PERFORM FUNCTION 

;SEE WHETHER CTU IS BUSY 
; RETURN ON USER INTERRUPT 
; SELECT RIGHT CTU 



- *************************** 
; SPCPRC - SPACE P RECORDS * 

SCPRC 



; *************************** 



EQU $ 
MVI B # 1 
CALL RVEVD 
EQU $ 



;SET TO INCREMENT IF NEED EVD 
^RECORD EVD IF NEEDED 
RMSPC EQU $ ;ESC SEQ SKIP W/0 EVD 

MVI A,E0F*EVD ;CLEAR ALL BUT EOF AND EVD 

;CLEAR EOF INHIBIT 
;TAPE INSERTED? 
;N0 - RETURN ERROR 



CALL CRCTO 
CALL CSCAN 
RC 
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34 7A 
347ft 
347E 
3481 
3484 
3487 
348A 
348A 
3480 
348D 
348 E 
3491 



3494 
3494 
3497 
3499 
349C 
349E 
349F 
349F 
34A1 
34A4 
34A4 
34A7 
34AA 
34AD 
34B0 
34B3 
34B6 

34B9 
34B9 
34BC 
34BF 
34C1 
34C2 
34C3 



3ADCFF 

87 

2AD5FF 

FA8A34 

CDCB2C 

C38D34 

C0F52C 

l>8 

21C53A 

CD642E 



2129FF 

36FF 

3A6EFF 

E601 

C8 

3600 
CDDA3C 

CD092A 
DA 0700 
CAB934 
CD2E2B 
D2A434 
CD582C 
CDB92C 



CD0700 

3A4FFF 

FE53 

C8 

37 

C9 



34C4 


CD592E 


34C7 




34C7 


3A29FF 


34CA 


B7 


34CB 


C8 


34CC 


C3E936 



LDA IPSGN 
ADD A 
LHLD ICCNT 
JM SC002 
CALL FDSPX 
,*MP SC005 

SC002 ECU $ 

CALL BKSPX 

SC005 EQU $ 
RC 

LXI H^SPMSG 
CALL STPMS 

; ******************* 

; WAIT FOR SPACING 
; MONITORING HIGH 
• ******************* 

SCWAT EQU 
LXI 



SCWT1 



SP010 



MVI 

LDA 

ANI 

RZ 

EQU 

MVI 

CALL 

EQU 

CALL 

JC 

JZ 

CALL 

JNC 

CALL 

CALL 



$ 

H^CISTA 
M,-1 
DFLGS 
SACOK 

$ 

M,Q 

CROIS 

$ 

CM0N1 

RTDSP 

SP020 

RTSCN 

SP010 

SOPTP 

FDSP1 
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;WHICH DIRECTION? 

;<GET NUMBER OF RECORDS) 
; FORWARD - START MOVEMENT 

;8ACKWARDS - START MOVEMENT 

;RETURN ON ERROR 
;SET SKIP LINES MESSAGE 
; SELECT TAPE UNIT MESSAGE 
***************************** 
TO BE FINISHED - ENTRY FOR * 
-SPEED SEARCH * 

***************************** 

;ENTRY FOR MESSAGE UPDATE 
;SET COMMAND SOURCE FLAG 

;FOR KEYBOARD SOURCE 
;6ET DATA TRANSFER FLAGS 
; COMMAND FROM KEYBOARD? 
;YES - RETURN 

; (ENTRY FOR FIND EVD> 
;N0 - SET FOR DATA COMM IN 
;DISPLAY SPACE MESSAGE 



;MONITOR 
; ERROR - 



DRIVES 



; , RUN* 



OFF - QUIT 



SP020 EQU $ 

CALL RTDSP 

LDA ICERR 

CPI SX 

RZ 

STC 

RET 



TAPE 
QUIT 
TURNED 
;RET PRESSED? 
;N0 - CONTINUE WAITING 
;YES - USER INTERRUPT 
;ADVANCE 1 REC TO END IN 
REASONABLE POSITION 

;RESTORE DISPLAY 
;"RUN* OFF # ANY ERROR? 

;N0 - RET 

;YES - C *> ERROR 



*********************************** 

TERMINATE SPACE/SEARCH OPERATION * 

*************** 



;******************** 
SCEN1 



SCEND 



EQU 
CALL 

EQU 

LDA 

ORA 

RZ 

JMP 



$ 

CUERR 
$ 

CISTA 
A 

UREXT 



;******************** 

; SPCPFL - SPACE OVER 
:******************** 



34CF 




SCPFL 


EQU $ 


34CF 


2AD5FF 




LHLD ICCNT 


34D2 


3ADCFF 




LDA IPSGN 


34D5 


87 




ADD A 


34D6 


F2E434 




JP SF100 



;CH£CK FOR I/O ERROR 

;6ET COMMAND SOURCE FLAG 

^COMMAND FROM KEYBOARD? 

;N0 - RETURN 

;YES - EXIT THRU USER EXIT 
*************************** 

P FILES OR LOCATE FILE P * 
*************************** 

;GET PARAMETER VALUE 
;6ET PARAMETER SIGN 
;NEGATIVE ADJUSTMENT? 
;N0 - DO NOT DECREMENT 
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34D9 
34DC 
34DF 
34 EO 
34E3 
34E4 
34E4 
34E6 
34E9 
34EC 
34ED 
34EF 
34F2 



34F5 

34F5 

34F8 

34 F9 

34FC 

34FE 

3501 

3503 

3506 

3507 

350A 

350D 

3510 

3513 

3514 

3514 

3516 

3519 

351A 

351D 

351E 

3521 

3522 

3525 

3527 

352A 

352A 

352D 

3530 

3531 

3533 

3533 

3536 



CD702B 

C2E434 

B5 

CAE434 

2B 

2600 

22DEFF 

215EFF 

46 

OEFF 

1120FF 

CD1600 



CD612B 

D8 

3A2DFF 

D602 

DAE92B 

3E03 

322EFF 

B7 

CDF12D 

DA2A35 

C21435 

CD702B 

CO 

0600 

2A20FF 

E5 

CDC62D 

E1 

222DFF 

97 

3261FF 

0605 

C33335 

CB212C 
D48C2B 
D8 
0607 

CD3935 
C39434 



SF100 



; * 



SARCH 



SC050 



SC070 



SC080 



CALL 

JNZ 

QRA 

JZ 

DCX 

EQU 3 

MVI 

SHLD 

LXI 

MOV 

MVI 

LXI 

CALL 
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CKEOF ;AT END OF FILE? 

SF100 ;YES - DO NOT DECREMENT 

L ;N0 - PARAMETER = 0? 

SF100 ;YES - DO NOT DECREMENT 

H ;N0 - DECREMENT PARAMETER 

H,0 ; CLEAR HIGH BYTE 

IDATA ;SAVE MODIFIED PARAM. VALUE 

H„FLNUM 

B # M ;6ET CURRENT FILE COUNT 

C„255 ;6ET MAXIMUM FILE COUNT 

D, CICNT+1 ;TAR6ET ADDRESS 

CKLIM ;GET ABSOLUTE FILE COUNT 



*********************** 
SEARCH - LOCATE A PARTICULAR FILE 
ENTRY; CTICNT+1 = DESIRED FILE 

EXIT : C => ERROR 

NC «> NO ERROR 



EQU 

CALL 

RC 

LDA 

SUI 

iC 

MVI 

STA 

ORA 

CALL 

JC 

JNZ 

CALL 

RNZ 

EQU 

MVI 

LHLD 

PUSH 

CALL 

POP 

SHLD 

SUB 

STA 

MVI 

JMP 

EQU 

CALL 

CNC 

RC 

MVI 

EQU 

CALL 

JMP 



$ 
CSCAN 

CICNT+1 

2 

RWDLP 

A,3 

CICNT+2 

A 

FLCMl 

SC070 

SC050 

CKEOF 

$ 

B,Q 

CICNT+1 

H 

RVEVD 

H 

CICNT+1 

A 

RLTAK 

B # RUN+FST 

SC080 

$ 

CKLPM 

CKEVD 

B # RUN+FyD+ 
$ 

scioo 

SCWAT 



;TAPE INSERTED? 
;N0 - RETURN ERROR 
;IS COUNT ZERO OR ONE? 

;VES - REWIND TO LOAD POINT 
;SET FOR THREE RE-TRIES CIN 

;CASE OF MISSING FILES> 
;TELL FILCMP FttD IS ON 
^PRESENT ? NEEDED 



;AT END OF FILE? 

;YES - RETURN 
^PRESENT >= NEEDED 

;DON"T CHANGE IOCCNT 

;SAVE DESIRED FILE AND 
;RETRY COUNTER 

;WRITE EVD IF RECORDING 



; CLEAR GAP COUNTER 

;SET FOR FAST REVERSE 
;START HIGH SPEEO SEARCH 
;PRESENT < NEEDED 

; ADVANCE TO LP IF NOT THER 

RECORDING OR EVD? 

;REPORT ANY ERROR 
FST ;SEARCH FAST FORWARD 

;START HIGH SPEED SEARCH 
;WAIT FOR SEARCH TO BE DONE, 
UPDATING MESSAGE 
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3539 




S 


3539 


3E7F 




353B 


CD1033 




353E 


78 




353F 




S 


353F 


214B35 




3542 


CDC02A 


i 


3545 


213C3B 


r 
r 


3548 


C3642E 





; START HIGH SPEED SEARCH 

SCtOO EQU $ 

MVI A # -1-EFINH 

CALL CRCTO ;CLEAR EOF INHIBIT 

HOY A,B ;6ET COMMAND 
SC110 EOU $ 

LXI H # TSRCO ;SET INTERRUPT TO COUNT SAP 

CALL OTCMD ; ISSUE COMMAND 

SET UP SEARCHING MESSAGE 



LXI H,LCMS6 
JMP STPMS 



;SET FIRST PART OF MESSAGE 
;SELECT MESSAGE FOR TAPE UNI 



; COUNT GAP LENGTH - INTERRUPT ROUTINE * 
-A**************************************** 



354B 


T 


354B 


E640 


354D 


CAB235 


3550 


7E 


3551 


E620 


3553 


C2EA35 


3556 


* 
21DA35 


3559 


22E1FF 


355C 


CD892C 


355F 


2161FF 


3562 


3600 


3564 


08 


3565 


CDEE2D 


3568 


CO 


3569 


CD5B28 


356C 


C4FF35 


356F 


CD582C 


3572 


97 


3573 


3247FF 


3576 


C5 


3577 


D5 


3578 


S 


3578 


CD502B 


357B 


47 


357C 


2A2DFF 


357F 


E5 


3580 


CD862E 


3583 


E1 


3584 


222DFF 


3587 


DA9835 


358A 


97 


35 8B 


12 


358C 


IB 


358D 


1A 


358E 


B7 


358F 


C27835 


3592 


CDEE2D 


3595 


BA7835 



TSRCO 



EOU 


$ 


ANI 


LP 


JZ 


SC500 


MOV 


A,H 


ANI 


GAP 


JNZ 


SC600 



;BACKED PAST LP? 
;YES - RECOVER 
;GET CTSTAT 
; FOUND DATA VET? 
;N0 - CHECK FOR EVD 



DATA FOUND - PROCESS GAP 



LXI H # TSRC1 
SHLD CIVEC 
CALL GPTST 



SC310 



LXI 

MVI 

RC 

CALL 

RNZ 

CALL 

CNZ 

CALL 

SUB 

STA 

PUSH 

PUSH 

E«U 

CALL 

MOV 

LHLD 

PUSH 

CALL 

POP 

SHLD 

JC 

SUB 

STAX 

DCX 

LDAX 

ORA 

JNZ 

CALL 

JC 



H^RLTAK 
M # 

FLCMP 

CKFWD 

SC700 

SOPTP 

A 

XRLIM 

B 

D 

$ 

6CTBT 

B,A 

CICNT+1 

H 

C2BUF 

H 

CICNT+1 

SC320 

A 

D 

D 

D 

A 

SC310 

FLCMP 

SC310 



;SET UP INTERRUPT TO WAIT 

;FOR GAP 
;UPDATE FILE STATUS S NUMBER 

BASED ON GAP LENGTH 
;CLEAR GAP COUNTER 

;N0 FILE NUMBER CHANGE - RET 

;FILE CHANGE: REACHED TARGET 

;N0 - RETURN 

;YES - WHICH DIRECTION? 

;FWD - STOP TAPE AND GO BACK 

;REV - STOP THE TAPE 

;SET TRANSFER LIMIT AT EOF 

;SAVE REGISTERS REQ*D FOR 
;CTU READ 

;6ET BIT FOR THIS UNIT 
;UNIT BIT IN B-RE6 
;SAVE DESIRED FILE AND 

;RETRT COUNTER 
zREAD A RECORD 



; RETURN ON ERROR 
;MARK BUFFER FREE 

;D,E -> TYPE 

;IS THIS A FILE MARK? 

;N0 - GET NEXT RECORD 

;YES - CORRECT FILE? 

; PRESENT < NEEDED, CONTINUE 
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FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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3598 
3598 
3599 
359A 
359B 
359C 
359F 
35A0 
35A3 
35A6 
35A7 
35AA 
35AC 
35AF 



35B2 
35B2 
35B5 
35B6 
35B9 
35BA 
35B0 
35C0 
35C1 
35C4 
35C7 
35CA 
35C0 
35CF 
35D2 
3505 
3506 
3507 



350A 
350A 
350C 
35DF 
35E0 
35 E2 
35 E3 
35E6 
35E9 



D1 

C1 

C8 

OS 

212EFF 

35 

21953C 

CAC434 

97 

3261FF 

3E05 

214B35 

C3CC2A 



C0542C 

97 

3262FF 

3C 

325EFF 

212EFF 

35 

21953C 

CAC434 

CD212C 

DAC734 

3E07 

C03F35 

3A29FF 

B7 

CO 

C30A3C 



E640 

CAB235 

7E 

E620 

C8 

214B35 

22E1FF 

C9 



35EA 




35EA 


2E61 


35EC 


34 


3 5 ED 


FO 


35 EE 


C05B2B 


35F1 


C8 


35F2 


2E62 


35F4 


3602 



SC320 



EQU 

POP 

POP 

RZ 

RC 

LXI 

OCR 

LXI 

JZ 

SUB 

STA 

MVI 

LXI 

JMP 



$ 
D 
B 



H # CICNT+2 

M 

H,FSKS6 

SCENt 

A 

RLTAK 

A # RUN+FST 

K # TSRCO 

OTCMD 



READING 
{(ENTRY 



FOR READ ERROR) 
{(RESTORE REGISTERS) 



{PRESENT « NEEDED, RET 
{(READ ERROR EXIT) 

{PRESENT > NEEDED, RETRY? 

{("FILE MISSING* MESSAGE) 
{NO - REPORT ERROR AND SUIT 
;YES - CLEAR SAP COUNTER 

{SEARCH FAST BACKWARD 

;SET INTERRUPT TO COUNT GAP 



HIT LP HOLE - POSSIBLE MISSING FILE 



SC500 EQU 
CALL 
SUB 
STA 
INR 
STA 
LXI 
OCR 
LXI 
Jl 

CALL 
JC 
MVI 
CALL 
LOA 
ORA 
RNZ 
JMP 

;********** 

I WAIT FOR 



{RECOVER FROM HITTING LP 
;STOP THE TAPE 
{CLEAR CONTROL BITS 

{SET AT FILE 1 



TSR CI 



EQU 

ANI 

JZ 

NOV 

ANI 

RZ 

LXI 

SHLD 

RET 



$ 

SPTPO 

A 

CTRLQ 

A 

FLNUM 

H,CICNT+2 

N {RETRY? 

H # FS«SG ;("FILE MISSING" MESSAGE) 

SCEN1 {NO - REPORT ERROR AND EXIT 

CKLPM {MOVE TO LOAD POINT 

SCENO {EXIT ON ERROR 

A,RUN+FWD+FST {SEARCH FAST FORWARD 

SC1tO ;START SEARCH ROUTINE 

CISTA {GET COMMAND SOURCE FLAG 

A ; COMMAND FROM DATA COMtt? 

;N0 - RETURN 
CROIS {YES - DISPLAY SEARCH NESSAG 
*************************** 

GAP - INTERRUPT ROUTINE * 
*************************** 
$ 

LP {BACKED PAST LP? 
SC500 {YES - RECOVER 
A,M ;6ET CTSTAT 
GAP {IN GAP? 

{NO - CONTINUE TO WAIT 
H,TSRCO {YES - SET UP INTERRUPT TO 
CIVEC ;COUNT GAP LENGTH 



J;*********************************************** 

; CHECK FOR EVD - SHARED BY SEARCH AND SPACE * 
; *********************************************** 

SC6Q0 

{INCREMENT GAP COUNT 
{REACHED EVD LIMIT? 
{NO - RETURN 
{YES - GOING FORWARD? 
;N0 - CONTINUE 
J6/256 
;YES - MARK EVD STATUS 



EQU 


$ 


MVI 


L # RLTAK 


INR 


M 


RP 




CALL 


CKFWD 


RZ 




MVI 


L^ CTRLQ 


MVI 


M,EVD 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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35F6 
35F9 
35FG 



35FF 
35FF 
3602 
3605 

3608 
36 OB 
360E 
360F 
3611 
3612 
3613 
3614 
3615 
3617 
3618 
3619 
361B 
361E 
3621 
3621 
3624 
3627 



CDFF35 
21203B 
C3C434 



210000 
2233FF 
212836 

CD5B2C 

2133FF 

7E 

C605 

2F 

77 

23 

7E 

CEQO 

2F 

77 

3E01 

212836 

CDCQ2A 

CD092A 
C22136 
C9 



3628 




3628 


7E 


3629 


B7 


362A 


FO 


362B 


2E33 


362D 


34 


362E 


CO 


362F 


23 


3630 


34 


3631 


CO 


3632 


C3542C 



3635 




3635 


21FFFF 


3638 


CDCB2C 


363B 


21193B 


363 E 


GD642E 


3641 


2129FF 


3644 


CD9F34 



CALL SC700 ;STOP TAPE & 60 BACK 
LXI H,EDMS6 ;REPORT END OF DATA 
JMP SCEN1 ;REPORT ERROR AND EXIT 
************************************************* 

STOP TAPE AND 60 BACK OVER STOPPING DISTANCE * 



USED BY: SEARCH AND SPACE, WHEN 



# 

; SEARCH, AFTER FAST FORWARD TO 

;************************************************* 

SC700 



HITTIN6 EVD * 
FILE * 



Eau 

LXI 

SHLD 

LXI 



$ 

H, 

CIADR 

H,TSRC2 



SPTP1 

H,CIADR 
A,M 



M,A 
H 

A,M 


M,A 

A, RUN 

H,TSRC2 

QTCMD 

$ 

CM0N1 

SC720 



;CLEAR CTIADR TO COUNT TACH 

;WHILE STOPPING 
;SET UP INTERRUPT TO STOP 

TAPE AND COUNT TACH 
;STOP TAPE 
;TAPE STOPPED - ADD A FEW 

;TACH ED6ES TO BE SURE 



COMPLEMENT COUNT TO COUNT 

;DOWN WHILE BACKING UP 
;6ET HIGH BYTE 

;ADD ANT CARRY FROM LOW BYTE 



;RETURN TO INITIAL POSITION 



CALL 

LXI 

MOV 

ADI 

CMA 

MOV 

INX 

MOV 

ACI 

CMA 

MOV 

MVI 

LXI 

CALL 
SC720 EQU 

CALL 

JNZ 

RET 
;************************************************* 

; DUAL-PURPOSE INTERUPT ROUTINE: * 

; FORWARD: COUNT TACH EDGES IN CTIADR * 

; REVERSE: COUNT TACH EDGES UNTIL CTIADR * 0,* 
; THEN STOP TAPE * 

;************************************************* 



;WAIT FOR TAPE 
;MONITOR TAPES 
;WAIT IF STILL 



TO FINISH 



RUNNING 



TSRC2 



EQU 

MOV 

ORA 

RP 

MVI 

INR 

RNZ 

INX 

INR 

RNZ 
JHP 



$ 

A,M 

A 

L-CIADR 



H 

M 



SPTPO 



;TEST CTSTAT 

;N0 - RETURN 
;YES - COUNT 

;RETURN ON NO OVERFLOW 
;OVERFLOW - INC HIGH BYTE 
;CTIADR = 0? (OCCURS ONLY 

REVERSE) 
;N0 - RETURN 
;YES - CLEAR 



IN 



RELTAK £ RET 



;****************************** 

; SREVD - SEARCH FOR EVD MARK * 
• ****************************** 



SREVD 



EftU 5 

LXI 

CALL 

LXI 

CALL 

LXI 

CALL 



H,-1 ;START SPACING MAX. DISTANCE 

FDSPX 

H,FVDMS ;GET "FIND EVD" MESSAGE 

STPMS ;SET UP WITH UNIT MSG 

H,CISTA ;SET UP FOR SPCWAT 

SCWT1 pWAIT FOR TAPE TO STOP 
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FILE 20 
FILE 20 
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• 3647 


C0822B 




CALL 


CKEVO 


364A 


37 




STC 




A 364B 


C8 




RZ 




W 364C 


C0CB3D 




CALL 


IERCL 


364F 


3E08 




MVI 


A,CDEXC 


a 3651 


C3E328 




JMP 


SUNTO 


W 3654 


C0822B 




CALL 


CKEVO 


3657 


C2CB3D 




JNZ 


IERCL 


A 365A 


37 




STC 




W 365B 


C9 




RET 








# 

; ******************* 






; TSTCTU - 


RELIAB1LI 








EXIT: C => 






i 




NC => 






• ******************* 


A 365C 




TTCTU 


EQtl 


S 


W 365C 


3AF3FF 




LOA 


MFL62 


365F 


47 




«0V 


B,A 


A 3660 


C5 




PUSH 


B 


W 366t 


C02A37 




CALL 


SWBSR 


3664 


CD6036 




CALL 


TT005 


A 3667 


C1 




POP 


B 


W 3668 


78 




MOV 


A,B 


3669 


32F3FF 




STA 


MFLG2 


a 366C 


C9 




RET 




W 3660 




TT005 


EQU 


$ 


366D 


C0333D 




CALL 


6I0BQ 


a 3670 


D8 




RC 




w 3671 


2B 




OCX 


H 


3672 


2B 




OCX 


K 


A 3673 


3600 




MVI 


M,0 


w 3675 


23 




I NX 


H 


3676 


36FF 




MVI 


M # -1 


A 3678 


23 




INK 


H 


W 3679 


C05C2B 




CALL 


6CTBT 


367C 


77 




MOV 


M # A 


A 3670 


47 




MOV 


B,A 


W 367E 


EB 




XCH6 




367F 


C05E3D 




CALL 


6TPTR 


A 3682 


3E25 




MVI 


A^45G 


W 3684 




TT030 


E6U 


$ 


3684 


77 




MOV 


«^A 


A 3685 


EE7F 




XRI 


1770 


W 3687 


2C 




INR 


L 


3688 


C28436 




JNZ 


TT030 


A 368B 


CD6B30 




CALL 


BF2CT 


W 368E 


08 




RC 




368F 


3A62FF 




LDA 


CTRLO 


A 3692 


E62F 




AMI 


EVD+HDER 


W 3694 


217E3B 




LXI 


H r FILMS 


3697 


C2592E 




JNZ 


CUERR 


a 369A 


COB120 




CALL 


EOFC 


W 3690 


08 




RC 




369E 


3A63FF 




LOA 


UNITO 


A 36A1 


E680 




AMI 


EW 


W 36A3 


C8 




RZ 




36A4 




TT050 


EQU 


$ 


a 36A4 


C0E92B 




CALL 


RWDLP 
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;AT ENO OF VALID OATA? 

;N0 - RETURN ERROR 
;YES - CLEAR ERROR 

;AND SET "COMMAND EXECUTED 

;AT ENO OF VALID OATA? 
;YES - CLEAR ERROR AND RET 
;N0 - RETURN ERROR 



**************** 
TY TEST OF CTU * 

* 

TEST FAILURE * 

TEST SUCCESS * 
**************** 

;GET CURRENT MODE 

;SAVE MODE 

;SET WRITE/BACKSPACE/READ 

;D0 TEST 

;RESTORE FORMER MODE 



;GET I/O BUFFER 
;RETURN ON ERROR 

;H^L -> LENGTH 

;0 => 256 

;H,L => TYPE 

;-1 => NORMAL 

;H„L -> STATUS 

;GET FLAG FOR SELECTED UNIT 

;SAVE FOR BUF2CT 
;0,E -> STATUS 
;GET PTR TO 1ST BYTE OF BUF 
;WORST CASE PATTERN 

;PUT BYTE IN BUFFER 
^ALTERNATE CHARACTER 
;256 BYTES? 

;N0 - CONTINUE 

;RECORO BUFFER 

;RETURN ON ERROR 
^ANYTHING BUT RECORD 
R+STERR+EOF+WTERR 

;CGET FAIL MESSAGE) 

;IF ERROR, RETURN 
;RECOR0 FILE MARK 

; RETURN ON ERROR 

;PAST EW HOLE? 

;N0 - SUIT 

;YES - REWIND TAPE 

;START REWIND OPERATION 
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36A7 




TT060 


EQU 


$ 


36A7 


C0Q92A 




CALL 


CM0N1 


36AA 


D8 




RC 




36AB 


C2A736 




JNZ 


TT060 


36AE 


C36D36 




jnp 


TT005 



36BI 
36B1 
36B4 
36B6 
36B9 
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;WAIT UNTIL REWIND FINISHED 
;TAPE STILL RUNNING? 

;RETURN ON ERROR 
;YES - WAIT 
;LET GTIOBF & BUF2CT WAIT 



;*****************#********* 

; CQNDTN - CONDITION TAPE * 
• *************************** 



CNDTN 



CDCB3D 
3E04 
CD3239 
C3E936 



EQU $ 
CALL IERCL 
MVI A,4 
CALL URNPO 
JMP UREXT 



;CLEAR ERROR (IOCERR <- S) 
;CONTROL CODE FOR CONDITION 
;6ET DEVICE AND GO 
;QUIT 



i K 
;** 



********************************************* 
EY INTERPRETATION *************************** 
********************************************* 



************************ 

6RNKEY - USER PRESSED GREEN KEY - PERFORM 
I/O OPERATION 

ENTRY; DON'T CARE 

EXIT : NC => NO ERROR 
IOCERR * S 
C => ERROR 

IOCERR = U => USER INTERRUPT 
IOCERR = F => FAILURE 



36BC 




36BC 


CD1470 


36BF 




36BF 


CDB729 


36C2 


CDBB3D 


36C5 


3600 


36C7 


CD0570 


36CA 


C2BF36 


36CD 


FE0D 


36CF 


C8 


36D0 


B7 


36D1 


CABC36 



GNOOO 



6NKEY 



EQU 


$ 


CALL 


ZBELL 


EQU 


S 


CALL 


CTMON 


CALL 


ICCLR 


MVI 


M,0 


CALL 


ZETKY 


JNZ 


GNKEY 


CPI 


CR 


RZ 




ORA 


A 


JZ 


GNOOO 



;SOUND BELL FOR BAD KEY 



;KONITOR THE TAPES 
;CLEAR ALL I/O VARIABLES 
;RESET ESCAPE FLAG 
;ANY INPUT FROM KEYBOARD? 
;N0 - CONTINUE WAITING 
;YES - IS IT A CRT 

;YES - QUIT 
;IS IT NULL? 

;YES - REPORT ERROR 



******************************** 

LOOK UP KEY IN VECTOR TABLE * 
******************************** 



36D4 


2TQ237 


LXI 


H^GNTBL-3 


36D7 


010300 


LXI 


B,3 


36DA 


GN100 EQU 


$ 


36DA 


09 


DAD 


B 


36DB 


BE 


CMP 


M 


36DC 


DADA36 


JC 


6N100 


36DF 


C2BC36 


JNZ 


GNOOO 


36E2 


23 


INX 


H 


36E3 


5E 


MOV 


E # M 


36E4 


23 


INX 


H 


36E5 


56 


MOV 


D^M 


36 E6 


04 


INR 


B 



;BASE ADDRESS 
;DISTANCE BETWEEN ENTRIES 

;POINT TO NEXT ENTRY 

;IS KEY >= TABLE ENTRY? 

;N0 - TRY NEXT ENTRY 

;YES - IF NOT SAME* RING BEL 

;VALID COMMAND - GET VECTOR 



;ROUTINES WANT B = 1 
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36E7 
36E8 



36F6 
36F9 
36F9 
36FC 
36FF 
3702 



EB 
CF 



XCHG 

RST RTJNP J DO INDIRECT CALL 

********************************************* 

; RETURN FOR USER INITIATED I/O FUNCTIONS * 
-******************************************** 



36E9 




36E9 


DC4B3D 


36EC 


3A4FFF 


36 EF 


FE53 


36F1 


C8 


36F2 


FE55 


36F4 


37 


36F5 


C8 



UREXT 



EOU 

cc 

LDA 

CPI 

RZ 

CPI 

STC 

RZ 



S 

FEBFS 
ICERR 
SX 

UX 



;FREE BUFFERS 
;ANY ERROR? 



ON ERROR 



;N0 - RETURN 
;USER INTERRUPT? 

;<C => ERROR) 
;YES - QUIT 



CDDA3C 

CD092A 
CD2E2B 
D2F936 
C30700 



; ********************************************* 
; FAILURE - DISPLAY MESSAGE UNTIL CR REC»D * 
;********************************************* 



UX100 



CALL 

EOU 

CALL 

CALL 

JNC 

JMP 



CRDIS 

S 

CK0N1 

RTSCN 

UX100 

RTDSP 



^DISPLAY MESSAGE 

;CHECK FOR REMOVED TAPES 
; RETURN KEY PRESSED? 



;N0 - CONTINUE 
;YES - RESTORE 



WAITING 
DISP S RET 



************************************************ 
TABLE FOR GREEN KEY FUNCTIONS 



J************************************************ 

; CONTROL F1 (COPY ALL) 

; COMPARE TO END-OF-DATA 
;TEST KEY 

^PERFORM COMPLETE TEST 
;F8 

;FIND FILE 
;F7 

;SKIP LINES 

;F6 

;MARK FILE 
;F5 

;R£WIND 

;F4 

;T0G6LE EDIT MODE 
;F3 

;COPY LINE 
;F2 

;COPY FILE 
,~F1 

;COPY ALL 
;ENTER KEY 

;DATACOM SELF-TEST 
;SPACE BAR 

;DISPLAV FILE, INCHES 



;SET WRITE/BS/READ MODE 



3705 


6NTBL EOU 


$ 


3705 


FF 


DB 


3770 


3706 


2A33 


DM 


URCMA 


3708 


FA 


DB 


3720 


3709 


3A37 


DW 


CUTST 


370B 


F7 


DB 


3670 


370C 


6E38 


DW 


URFFL 


370E 


F6 


DB 


3660 


370F 


7538 


DW 


URSKP 


3711 


F5 


DB 


36 50 


3712 


3039 


DW 


UREOF 


3714 


F4 


DB 


3640 


3715 


2C39 


DW 


URRWD 


3717 


F3 


DB 


3630 


3718 


4039 


DW 


OR TED 


371A 


F2 


DB 


3620 


371B 


BF3A 


DW 


URXFL 


371D 


F1 


DB 


3610 


371E 


C03A 


DW 


URXFF 


3720 


FO 


DB 


36 OQ 


3721 


C13A 


DW 


URXFA 


3723 


98 


DB 


2300 


3724 


6600 


DW 


DTEST 


3726 


20 


DB 


400 


3727 


1240 


DW 


TSTAT 


3729 


00 


DB 





372A 


SWBSR EOU 


$ 


372A 


21F3FF 


LXI 


H,MFLG2 


372D 


7E 


MOV 


A,M 


372E 


F620 


ORI 


WBSR 


3730 


77 


MOV 


M # A 
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FILE 
FILE 
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FILE 
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FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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FILE 
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FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
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20 
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3731 
3732 


C9 


C 


3732 


21F3FF 




3735 


7E 




3736 


E6DF 




3738 


77 




3739 


C9 


r 
* 
# 

r 
r 



373A 
3 73 A 
3730 
373F 
3742 
3745 
3748 
374B 
374E 
3751 
3754 
3754 
3757 



375A 
37 5 A 
375D 
375F 
3762 
3764 
3766 
3769 
376C 
376E 
376E 
3771 
3774 
3777 
377A 
377C 
377F 
3781 
3784 
3787 
378A 
378B 
378E 
3791 
3793 



CDCB3D 

3E07 

32D8FF 

CD4D34 

DA5437 

CD4300 

CD4300 

CD6234 

D24300 

2AF1FF 
C36100 



3AF4FF 

E61C 

C21470 

3E20 

0600 

CD0E7O 

CDBB3D 

360C 

CDB729 

CD0570 

329CFF 

C26E37 

FE9E 

CAB137 

FEF3 

CA6E37 

CD1139 

C2A637 

4F 

3A9CFF 

21D9FF 

FECC 

CAA137 



CWBSR 



EQU 


$ 


LXI 


H,MFLG2 


MOV 


A,M 


AMI 


-1-WBSR 


NOV 


m,h 


RET 





;CLEAR WRITE/BS/READ MODE 



****** 



***************** 



CTUTST - DO COMPLETE TEST OF TERMINAL 

INCLUDING TEST OF BOTH TAPE UNITS. 

TESTS LEFT CTU # THEN TESTS TERMINAL TWICE, 
THEN RIGHT CTU, THEN TERMINAL ONCE. 



CUTST 



CT100 



EQU 

CALL 

NVI 

STA 

CALL 

JC 

CALL 

CALL 

CALL 

JNC 

EQU 

LHLD 

JMP 



$ 

IERCL 

A # 7 

ICTYP 

CLLCT 

CT100 

TEST 

TEST 

CLRCT 

TEST 

$ 

MGPT1 

HNGUO 



; CLEAR I/O ERROR FLAG 
;7 * CODE FOR TAPE TEST 

;CONTROL ROUTINE FOR LEFT TA 

^DISPLAY AND HANG ON ERROR 

;TEST TERMINAL 

;TEST TERMINAL 

^CONTROL ROUT. FOR RIGHT TAP 

;IF OK, RETEST TERMINAL & RE 

;NOT OK - SET UP FOR HANGUO 
;DISPLAY HSG UNTIL HARD RESE 



********************* 



******** 

SELKEY - DEVICE SELECTION * 

******** 



p ************* ******* 



SLKEY 



SK050 



EQU 

LDA 

ANI 

JN2 

MVI 

MVI 

CALL 

CALL 

mvi n, 

EQU $ 

CALL CTNON 
CALL ZETKY 



MFL61 
EDIT 
ZB ELL 
A # SLECT 
B,0 
ZTHD1 
ICCLR 




STA 
JNZ 
CPI 

CPI 

il 

CALL 

SHI 

MOV 

LDA 

LXI 

CPI 

JZ 



CARIN 

SK050 
SKY CD 
SK410 

36 3Q 

SK050 

CDVKY 
SK200 
C # A 

CARIN 

H,ICINP 

31 4Q 

SK150 



;IN EDIT OR LOGGING MODE? 
;YES - CAN»T CHANGE DEVICES 



;TURN ON SELECT MODE 
;CLEAR I/O STORAGE 
;RESET ESCAPE FLAG 

;MONITOR TAPES 

;ANY KEYBOARD INPUT? 

;N0 - CONTINUE SCANNING 
;IS IT THE SELECT KEY? 
?YES - ABORT DEVICE SELECT 

;IS IT F4 (PRINTER INPUT>? 

;YES - IGNORE IT 
;DEVICE KEY? 

;N0 - TERMINATE PROCESSING 
rSAVE DEVICE FLAG 
RECALL THE CHARACTER 

;(SET ADDRESS FOR INPUT) 

;ALTERNATE I/O INPUT? 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
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3796 


FEFO 






CPI 


36 OQ 




;OTHER INPUT SPEC? 


3798 


DAAQ37 






JC 


SK130 




;N0 - ALTERNATE I/O OUTPUT 


379B 


E604 






ANI 


4Q 




;OTHER INPUT SPEC? 


379D 


CAA137 






JZ 


SKI 50 




;YES - 


37A0 




SK130 


EQU 


$ 






37A0 


23 






INX 


H 




;N0 - POINT TO OUTPUT 


37A1 




SK150 


EQU 


$ 






37A1 


79 


r 

i 




MOV 

ORA 


A # C 

M 




;RECALL DEVICE FLAG 









SELECT 


MULT I 


OUTPUT DEVICE 


37 A2 


77 


# 




«0V 


M^A 




;SAVE FLAGS 


37A3 


C36E37 






■IMP 


SK050 




;6ET NEXT CHAR. 






* 


NON 


-DEVICE KEY 


HIT - TERMINATE SELECTION MODE 


37A6 




SK20Q 


EQU 


$ 






37A6 


CDB937 






CALL 


STDEV 




;VALID ASSIGNMENT? 


37A9 


DC592E 






CC 


CUERR 




;N0 - FLAG ERROR 


37AC 


3E03 






MVI 


A^RTKEY 




37AE 


D40870 






CNC 


ZBCTL 




;YES - PUT CHAR BACK INTO 


37B1 




SK410 


EQU 


$ 




;ABORT ENTRY 


37B1 


3E20 






MVI 


A^SLECT 


;TURN OFF LIGHT 


37B3 


CD1170 






CALL 


ZLKD1 






37B6 


C3E936 


t 




JMP 


UREXT 




; RETURN TO SYSTEM 






t 

r 
i 


* * 


* * * 


* * * 


* 


************** 



37B9 
37B9 
37BC 
37BD 
37BE 
37Ct 
37C2 
37C3 
37C6 
37C7 
37C8 
37CA 
37CB 
37CC 



37CF 
37CF 



; SETDEV - SET DEVICE ASSIGNMENT 
i 

a 
r 
f 



ENTRY: 



IOCINP, IOCOUT CONTAIN NEW 
DEVICE ASSIGNMENTS 



EXIT £ C => ERROR 

H,L •> APPROPRIATE ERROR MSG 
NC »> NO ERROR 

INPBEV, OUTDEV UPDATED 
A DESTROYED 



21D9FF 

AF 

96 

CACF37 

A6 

BE 

21073C 

37 

CO 

FE08 

37 

C8 

324EFF 



;CHECK INPUT ASSIGNMENT 



STDEV EQU $ 

LXI K,ICINP 

XRA A 

SUB M ;ANY ASSIGNMENT? 

JZ SD01Q ;N0 - CHECK OUTPUT ASSIGNMENT 

ANA M ;YES - MASK FOR RIGHTMOST BIT 

CMP M ;ONLY ONE ASSIGNMENT? 

LXI H^TFMSG ; (TOO MANY "FROM** DEVS) 

STC 

RNZ 

CPI PINTR 



STC 

RZ 

STA 



;N0 - RETURN FAIL 

;IS IT THE PRINTER? 



IPDEV 
CHECK OUTPUT ASSIGNMENT 



jYES - RETURN ERROR 
;AND STORE IT 



3ADAFF 



SD010 EQU S 

LDA ICOUT 



;NEtf OUTPUT ASSIGNMENT? 
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3702 
37D5 
37D6 



37D7 
37D7 



37D8 
37D8 



324DFF 

AF 

C9 



C9 



CDCB3D 



370B 




37DB 


CD2800 


37DE 


3AC0FF 


37E1 


FEOO 


37E3 


CAEE37 


37E6 


3AF3FF 


37E9 


E6Q4 


37 EB 


C44F00 


37EE 




37 EE 


CD2B00 


37F1 


CO 


37 F2 


2601 


37F4 


2E04 


37F6 


2240FF 


37F9 


97 


37FA 


C0023F 


37F0 


C3E936 



ORA A 
RZ 

STA OTDEV 
XRA A 
RET 



NEW OUTPUT ASSIGNMENT? 
NO RETURN 

;YES - STORE IT 
;SET Z TO TRUE 
;RETURN 



; ************************* 

; CONTROL READ PRESSED * 
************************* 



CLRED 



EQU 
RET 



; **************************** 
; REDKEY - READ KEY PRESSED * 
;**************************** 

RDKEY EQU $ 

CALL IERCL ; CLEAR I/O 

; **************************** 

; LOCAL READ (TO DISPLAY) * 

;**************************** 

RD100 



ERROR FLAG 



RD110 



EQU 


S 




CALL 


CRPBD 


;CURSOR HOME DOWN 


LDA 


CRROW 


; FIRST 


CPI 


OB 


;ROy 


JZ 


RD110 


;YES 


LDA 


MFLG2 


;N0 


ANI 


ATOLF 


;AUTO LFEED? 


CNZ 


LFEED 


i 


EQU 


$ 




CALL 


FECNT 


; ENOUGH BLOCKS? 


RNZ 




;N0 - RETURN 


MVI 


H,LTCTU 


; INPUT DEV 


MVI 


L^DSPLY 


;OUTPUT DEV 


SHLD 


OTDEV 


;SELECT 


SUB 


A 


;SET FOR XFER TO E 


CALL 


XR001 


;D0 THE READ 


•IMP 


UREXT 


; REPORT ANY ERRORS 



END OF FILE 



AND RETURN 



******************************* 







; RECKEY - 


RECORD KEY 


PRESSED * 






;****************************** 


3800 




RCKEY 


EQU 


$ 




3800 


CDCB3D 




CALL 


IERCL 


;CLEAR I/O ERROR FLAG 


3803 


21F4FF 




LXI 


H,MFLG1 


;IN EDIT MODE? 


3806 


7E 




MOV 


A # M 




3807 


E610 




ANI 


EDIT 




3809 


C2483A 




JNZ 


UREDA 




380C 


7E 




MOV 


A^M 


;N0 - IN RECORD MODE? 


380D 


E640 




ANI 


RCORD 




380F 


C26338 




JNZ 


RK700 


;YES - END RECORD MODE 


3812 


3E10 




MVI 


A^RCINI 


;SET "RECORD INIT" FLAG 


3814 


CD982B 




CALL 


SIOFS 





; ***************** 

; LOCAL RECORD * 

• ***************** 



3817 


CD8D00 


CALL CRRET 


381A 


CDD800 


CALL IITDG 


381D 


2604 


MVI H,DSPLY 



FIND START OF BLOCK 



;H<- INPUT DEVICE 
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381F 


2E02 


MVI 


L,RTCTU 


3821 


224DFF 


SHLD 


OTDEV 


3824 


97 


SUB 


A 


3825 


3C 


INR 


A 


3826 


CD023F 


CALL 


XR001 


3829 


DAE936 


JC 


UREXT 


382C 


CDC847 


CALL 


CKFMT 


382F 


CAE936 


JZ 


UREXT 


3832 


CD2500 


CALL 


CURPH 


3835 


CD3400 


CALL 


CEARS 


3838 


C3E936 


-IMP 


UREXT 



386E 
386E 
3871 
3872 



3875 
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;L<- OUTPUT DEVICE 
;H-INPUT L -OUTPUT DEVICE 
;SET FOR XFR TO END OF DATA 

;D0 THE RECORD 

TO INITDG 
;QUIT ON ERROR 
;IN FORMAT MODE? 
;N0 - RETURN TO SYSTEM 
;YES - HOME THE CURSOR AND 

;CLEAR UNPROTECTED FIELDS 
;EXIT TO SYSTEM 



383B 




383B 


3288FF 


383E 


3E40 


3840 


0600 


3842 


CD0E70 


3845 




3845 


CD333D 


3848 


DA6338 


384B 


3620 


384D 


2B 


384E 


36FF 


3850 


2B 


3851 


3600 


3853 


EB 


3854 


CD1741 


3857 


DA6338 


38 SA 


EB 


385B 


13 


385C 


13 


385D 


CD8D41 


3860 


D24538 


3863 




3863 


CD4B3D 


3866 


3E40 


3868 


CD1170 


386B 


C3E936 



213C3B 

04 

C37838 



; ****************** 

; REMOTE RECORD * 
******************* 



RECORDING IS TRIGGERED BY CHAR FROM DATACOM 
OTHER THAN CR OR LF. WHEN RECEIVED, SYSTEM 
CALLS RCRDGO. 



RRDGO 



RK650 



RK700 



EQU 

STA 

MVI 

MVI 

CALL 

EQU 

CALL 

JC 

MVI 

DCX 

MVI 

DCX 

MVI 

XCHG 

CALL 

JC 

XCHG 

INX 

INX 

CALL 

JNC 

EQU 

CALL 

MVI 

CALL 

JMP 



S 

CHAR 

A, RCGRD 

B,0 

2TMD1 

S 

GIOBO 

RK700 

M,DTCOM 

H 

*,-1 

H 

M,0 

D2BUF 
RK700 

D 

D 

PUTIO 

RK650 

$ 

FEBFS 

A,RCORD 

ZLMD1 

UREXT 



;SAVE THE FIRST CHAR 
;TURN OFF LED BLINK 



;GET BUFFER 

;TERMINATE MODE ON ERROR 

;MARK BUF FOR DATACOM INPUT 

;H,L -> TYPE 

;ALL RECORDS ARE NORML (DATA 

;H,L -> LENGTH 

;INIT TO 

;D,E -> LENGTH 

;6ET RECORD FROM DATACOM 

;QUIT RECORD MODE ON ERROR 

;DC28UF RETURNS H,L -> LEN6T 

;WANT 0,E -> STATUS FOR 

jPUTIO 
;OUTPUT RECORD 
;N0 ERROR - GET NEXT RECORD 
;«UIT RECORD MODE 
;FREE BUFFERS 
;TURN OFF LED 



;SET TRIG, REPORT 
ANY), QUIT 



ERRORS CIF 



- *********************** 



; USRFFL - LOCATE FILE * 
- *********************** 

ORFFL EQU $ 

LXI H,LCMSG ;DISPLA¥ LOCATE FILE MESSAGE 
INR B ;SET FUNCTION CODE 

JMP US010 ;ACCUMULATE PARAMETER 

;****************************** 

; USRSKP - SPACE OVER RECORDS * 
;****************************** 

URSKP EQU $ 
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3875 


21C53A 




LXI 


H,SPMSG 


; DISPLAY SPACE MESSAGE 


3878 




US010 


Em 


S 




3878 


3E0A 




MVI 


A,OCROX 


;SET RADIX TO DECIMAL 


38 7A 


3204FF 




STA 


RADIX 




3870 


22F1FF 




SHLO 


M6PT1 


;SET PARAMETER MESSAGE 


3880 


21B03C 




LXI 


H # M1MSG 


;SET DEFAULT PARAMETER = -1 


3883 


22EFFF 




SHLO 


MGPT2 




3886 


2108FF 




LXI 


H,ICTYP 


;STORE FUNCTION TYPE CODE 


3889 


70 




MOV 


M,B 




388A 




US020 


EQU 


$ 




388A 


C00A3C 




CALL 


CROIS 


;OISPLAY MESSAGE 


3880 




US030 


EQU 


$ 




3880 


C0B729 




CALL 


CTMON 


^MONITOR TAPES 


3890 


CD0570 




CALL 


ZETKY 


;ANY KEYBOARD INPUT? 


3893 


C28038 




JN2 


USQ30 


;N0 - CONTINUE SCANNING 


3896 


FEOD 




CPI 


CR 


;RETURN KEY HIT? 


3898 


CA0700 




JZ 


RTOSP 


;YES - ABORT 


38 9B 


C0C538 




CALL 


US300 


;DI6IT OR SIGN? 


389E 


028A38 




JNC 


USQ20 


;YES - DISPLAY MESSAGE AGAIN 


38A1 


C0tt39 




CALL 


COVKY 


;IS IT A DEVICE KEY? 


38A4 


C41470 




CNZ 


ZBELL 


;N0 - SOUND BELL 


38 A7 


C28038 




JNZ 


US030 


;ANO TRY ANOTHER KEY 


38AA 




ISCTL 


EQU 


$ 




38AA 


320BFF 




STA 


ICOEV 


;SAVE DEVICE CODE 


38 AD 


2A0EFF 




LHLO 


10 ATA 


;GET ACCUMULATED PARAMETER 


38B0 


3A00FF 




LOA 


ICS6N 


;ANY VALUE SPECIFIED? 


38B3 


B7 




ORA 


A 




38B4 


C2B938 




JNZ 


US050 


;¥ES - STORE PARAMETER 


38B7 


2F 




CMA 




;N0 - SET DEFAULT OF -1 


38B8 


23 




INX 


H 


^MAGNITUDE = 1 


38B9 




US050 


EQU 


$ 




38B9 


320CFF 




STA 


IPS6N 


;STORE SIGN 


38BC 


2205FF 




SHLO 


ICCNT 


; STORE MAGNITUDE 


38BF 


C00700 




CALL 


RTOSP 


;RESTORE NORMAL DISPLAY 


38C2 


C3F53F 


# 


JMP 


CR025 


;ANO PERFORM FUNCTION 






; PROCESS 


DIGIT OR 


SI6N KEYS 


38C5 




US300 


EQU 


$ 




38C5 


FE2B 




CPI 


PLUS 


;PLUS SIGN? 


38C7 


CCODOO 




CZ 


DPLUS 


;YES - SET SI6N FLAG 


38C A 


CAE238 




JZ 


US 305 


;AND UPDATE MESSAGE 


38CD 


FE20 




CPI 


MINUS 


;MINUS? 


38 CF 


CC1000 




CZ 


DMNUS 


;YES - SET SIGN FLAG 


3802 


CAE238 




JZ 


US305 


;AND UPDATE MESSAGE 


3805 


FE30 




CPI 


ZERO 


; DIGIT? 


3807 


08 




RC 




;N0 - RETURN 


3808 


FE3A 




CPI 


ZER0+10 


^DECIMAL DIGIT? 


380A 


3288FF 




STA 


CHAR 


;CSA¥E CHARACTER IN CASE) 


3800 


3F 




C«C 




; (INVERT SENSE OF COMPARE) 


38 DE 


08 




RC 




;N0 - RETURN 


380 F 


COOAQO 




CALL 


DCNUM 


;YES - ACCUMULATE THE DIGIT 


38E2 




US305 


EQU 


$ 


;SET UP MESSAGE 


38E2 


3A0DFF 




LOA 


USGN 


;GET SIGN VALUE 


38E5 


87 




ADO 


A 


;ANY SIGN SPECIFIED? 


38E6 


21833C 




LXI 


H # BKMS6 


;(SET FOR BLANK MESSAGE) 


38E9 


CAF538 




JZ 


US 310 


;N0 - ADD NO SIGN TO MESSAGE 


38EC 


21C13C 




LXI 


B,PSMSG 


;(SET FOR PLUS MESSAGE) 
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FILE 
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FILE 
FILE 
FILE 
FILE 
FILE 
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38EF 
38F2 
38F5 
38F5 
38F8 
38FB 
38 FC 
38FF 
3902 
3905 
3906 
3907 
390A 
390D 
390F 
3910 



3911 
3911 
3913 
3915 
3918 
391A 
391 D 
391F 
3922 
3924 
3926 
3927 
3927 
3929 



392C 
392C 
3920 



3930 
3930 
3932 
3932 
3935 
3935 



F2F538 
21C43C 

22EFFF 

2ADEFF 

EB 

213DFF 

22E0FF 

3AD8FF 

3D 

7B 

C46F00 

CC6C00 

36CE 

B7 

C9 



2E05 

FECC 

CA2739 

FED1 

CA2739 

FED2 

CA2739 

E6FB 

D6EF 

6F 

2600 
C3E73E 



AF 
C33239 



3E05 

32D8FF 

C0B729 



JP US310 
tXI H,MSKSG 
US310 EQU $ 

SHLD MGPT2 
LHLO I DATA 
XCHG 

LXI H # BDBUF 
SHLD M6PT3 
LDA ICTYP 
A 

A,E 
B2DE0 
B2BEC 
M^EOP 
A 
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;PLUS - DISPLAY PLUS SIGN 
; MINUS - DISPLAY MINOS SIGN 



DCR 

MOV 

CNZ 

CZ 

MVI 

ORA 

RET 



SET SIGN VALUE 

GET ACCUMULATED VALUE 

PUT INTO D # E 

GET OUTPUT BUFFER ADDRESS 

SET MESSAGE POINTER 

GET COMMAND TYPE 

SEARCH COMMAND? 

;(PUT LSB INTO A-REG) 
YES - DISPLAY ONE BYTE ONLY 
NO - DISPLAY TWO BYTE VALUE 
ADD TERMINATOR CHARACTER 
RETURN "NC" TO INDICATE 

;VALID DIGIT OR SIGN 



****** ***************** 
CKDVKY - CHECK FOR DEVICE KEY 
ENTRY: A = KEY VALUE 



i 

* 
i 
i 

I 
i 

# 
# 

i 

m 
t 

i 
» 

CDVKY 



EXIT 



Z = 1, DEVICE KEY 

A « DEVICE BIT 

Z = F, NON-DEVICE KEY 
A DESTROYED 

H^L DESTROYED 



EQU 

MVI 

CPI 

JZ 

CPI 

JZ 

CPI 

it 



L,5 

314Q 

CK100 

32 1Q 

CK100 

3226 

CK100 



CK100 



AN I 3730 
SUI 357Q 
MOV L*,A 
EQU $ 

MVI H # 
JMP DNDVO 



;FIRST TEST FOR ALTERNATE 1/ 

;INSERT LINE? 

;YES - 

; INSERT CHAR ON? 

;YES - 

;INSERT CHAR OFF? 

* YES •* 
;F1;=F1*F5 # ETC. 
;CHAR.-357B 



;CHECK VALID DEVICE 



• ***************** ************* 
; USRRWD - REWIND TAPE TO BOT * 

; ****************************** 

URRWD EQU S 

XRA A ;SET CONTROL CODE 

JMP URNPO ;GET UNIT SELECT 

; **************************** 

; USREOF - RECORD FILE MARK * 
**************************** 

EQU $ 

MVI A, 5 

EQU S 

STA ICTYP ;STORE CONTROL CODE 

EQU $ 

CALL CTMON ^MONITOR TAPES 



UREOF 



URNPO 
URNPM 



FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
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FILE 20 
FILE 20 
FILE 20 
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3938 


C00570 


CALL ZETKY 


393B 


C23539 


JN2 URNPM 


393E 


FEOO 


CPI CR 


3940 


C8 


RZ 


3941 


CD1139 


CALL CDVKY 


3944 


CAAA38 


JZ ISCTL 


3947 


CD147Q 


CALL ZBELL 


394A 


C33 539 

r 




.IMP URNPM 
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;ANY KEYBOARD INPUT? 

;N0 - CONTINUE SCANNING 
;IS KEY RETURN? 

;YES - ABORT 
;IS IT A DEVICE KEY? 
;YES - PERFORM FUNCTION 

;N0 - SOUND THE BELL 
;6ET ANOTHER KEY 



• **************************** 
; USRTED - T066LE EDIT MODE * 
**************************** 



394D 




URTED 


EQU 


$ 


394D 


21F4FF 




LXI 


H,MFL61 


3950 


7E 




MOV 


A^M 


3951 


E610 




ANI 


EDIT 


3953 


CA6F39 




41 


UE030 



;EDIT MODE ON? 



;N0 - TURN ON EDIT 



;*********************** 

; TURN OFF EDIT MODE * 
* ************* ********** 



3956 




3956 


3E1Q 


3958 


CD117Q 


395B 


2124FF 


395E 


7E 


395F 


B7 


3960 


C8 


3961 


3600 


3963 


3EF7 


3965 


CD9E28 


3968 


2E4D 


396A 


7E 


396B 


F603 


396D 


77 


396E 


C9 



EDRST 



EQU 

MVI 

CALL 

LXI 

MOV 

ORA 

RZ 

MVI 

MVI 

CALL 

MVI 

MOV 

OR I 

MOV 

RET 



$ 

A, EDIT 

ZLMD1 

H,SPCTU 

A # M 
A 



;ENTRY FOR CTU 
;TURN OFF EDIT 

;DATA LOGGING 
;MODE? 



RESET 
LIGHT 

IN SWAP CTU*S 



M,0 

A # -1-RCRWD 

CIOFS 

L^OTDEV 

A,M 

LTCTU+RTCTU 

M^A 



;NO - RETURN 

;YES - CLEAR SWPCTU 

;CLEAR PENDING REWIND 



;SET UP BOTH CTU»S 
;OUTPUT DEVICES 



AS 



• ********************** 

; TURN ON EDIT MODE * 

• ********************** 



396F 




396F 


7E 


3970 


E608 


3972 


CO 


3973 


2E4E 


3975 


7E 


3976 


F604 


3978 


2B 


3979 


A6 


397A 


C2C041 


397D 


CD5E00 


3980 


0600 


3982 


3AF3FF 


3985 


E608 


3987 


CA9D39 



UE030 



EQU 

MOV 

ANI 

RNZ 

MVI 

MOV 

ORI 

DCX 

ANA 

JNZ 

CALL 

MVI 

LDA 

ANI 

JZ 



$ 

A,M 

FRMAT 

L # IPDEV 

A # M 

DSPLY 

H 

M 

IFAIO 

MKOFF 

B,G 

MFLG2 

RMOTE 

UE070 



; FORMAT MODE? 

;YES - IGNORE EDIT REQUEST 

; CHECK FOR INPUT/OUTPUT DEV 
DUPLICATION 

;(ADD DISPLAY AS INPUT DEV 
;<GET OUTPUT DEVICES) 

;ANY DUPLICATION? 

;YES - REPORT FROM - TO 

;TURN OFF MEMORY LOCK 

;SET B FOR NO BLINK (LOCAL) 

;LOCAL MODE? 

;YES - TURN ON LIGHT & RET 



J********************************************** 
; SET UP REMOTE EDIT (ON-LINE DATA LOGGING) * 
• ********************************************** 



398A 
398D 



214DFF 
7E 



LXI 

MOV 



H,OTDEV 

A # M 



;BOTH TAPES ON OUTPUT? 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
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398 E 


2F 




CMA 






398 F 


E603 




ANI 


LTCTU+RTCTU 


3991 


3E00 




MVI 


A # 


;CSET A FOR "NO") 


3993 


C29C39 




-INZ 


UE050 


;N0 - 


3996 


7E 




HOV 


A^M 


;YES - USE ONLY LEFT TAPE 


3997 


E6FD 




ANI 


-1-RTCTU 




3999 


77 




MOV 


M,A 




399A 


3EFF 




MVI 


A*-1 


;ANO SET SWPCTU = -1 


399C 




UE050 


EQU 


$ 




399 C 


05 




DCR 


B 


;SET B FOR BLINKING CLQGG 


3990 




UE070 


EQU 


$ 




3990 


3224FF 




STA 


SPCTU 


;MARK SWPCTU ACCORDINGLY 


39A0 




UEtQO 


EQU 


$ 




39A0 


3E10 




MVI 


A, EDIT 


;FLAG FOR SET ROUTINE 


39A2 


C30E70 




JMP 


ZTMD1 





****************** 



***** 



39A5 


PP002 EQU 


$ 


39A5 


3A4EFF 


LOA 


IPOEV 


39A8 


F624 


ORI 


DSPLY+D 


39AA 


47 


KOV 


B,A 


39AB 


B6 


ORA 


M 


39AC 


2E37 


MVI 


L,B2STT 


39AE 


B6 


ORA 


M 


39AF 


B8 


CMP 


B 


39B0 


37 


STC 




39B1 


C8 


RZ 




39B2 


PTPLN EQU 


* 


39B2 


FB 


EI 




39B3 


C0092A 


CALL 


CM ONI 


39B6 


BCE936 


CC 


UREXT 


39B9 


F3 


01 




39BA 


CB4030 


CALL 


GIOBF 


39BD 


CACC39 


JZ 


PP005 


39C0 


3E40 


MVI 


A,PTPOK 


39C2 


BE 


CMP 


M 


39C3 


CACC39 


JZ 


PP005 


39C6 


2E3A 


MVI 


L,B1STT 


39C8 


BE 


CMP 


M 


39C9 


C2A539 


JNZ 


PP002 


39CC 


PP005 EQU 


$ 


39CC 


3604 


MVI 


M,DSPLY 


39CE 


FB 


EI 




39CF 


05 


PUSH 


D 


3900 


3A6EFF 


LOA 


OFLGS 


3903 


E680 


ANI 


XF2DS 


3905 


CCCB3D 


CZ 


IERCL 


3908 


E5 


PUSH 


H 



PTTPLN - OUTPUT TOP LINE OF DISPLAY MEMORY 

ENTRY: # E -> (1ST CHAR IN LINE>*t 

EXIT : LINE SENT TO ALL OUTPUT DEVICES 
C => ERROR, LINE NOT OUTPUT 
NC => NO ERROR 
A # B,H,L DESTROYED 



;ANY CHANCE FOR A BUF? 
»M ;<REQ*S BUF THAT IS NOT 
;CLAIMEO BY INPUT DEV, OIS 
;0R DATA COMM> 

;BGES A BUF HAVE ANY OTHER 

;BIT SET? 
;N0 - RETURN ERROR 



^MONITOR TAPES 

^REPORT ANY ERRORS 

;COMPETE WITH CTO FOR FREE B 

NEITHER BUFFER FREE? 

;YES - CLAIM IT 

;N0 - IS BUF 2 AVAIL FOR TH I 

; ROUTINE? 
;YES - CLAIM IT 

;N0 - HOW ABOUT BUF 1? 

;N0 - ANY CHANCE FOR A BUF? 

;BUFFER FOUND 

;MARK FOR OUTPUT TO DISPLAY 

;SAVE PTR TO START OF LINE 
;READ IN PROGRESS? 

;NO - CLEAR ERROR FLAG 
;SAVE STATUS POINTER 
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39D9 


7D 




MOV 


A*L 


39DA 


CD5F3D 




CALL 


6TPT1 


390D 




PPOtO 


EQU 


$ 


39DD 


CDS 500 




CALL 


NTCHR 


39E0 


C2FE39 




JNZ 


PP030 


39E3 


FEC3 




CPI 


FILl 


39E5 


CADD39 




JZ 


PPOtO 


39E8 


FEC4 




CPI 


SPFL6 


39EA 


CADD39 




JZ 


PP010 


39ED 


77 




MOV 


M*A 


39EE 


2C 




INR 


L 


39EF 


CA3E3A 




JZ 


PP490 


39F2 


FECC 




CPI 


EOL 


39F4 


C20D39 




JNZ 


PP010 


39F7 


2D 




DCR 


L 


39F8 




PP020 


EQU 


$ 


39F8 


CD5500 




CALL 


NTCHR 


39FB 


CAF839 




JZ 


PP020 






;**************** 






; BUFFER FILLED* 






***************** 


39FE 




PP030 


EQU 


$ 


39FE 


1A 




LDAX 


D 


39FF 


D1 




POP 


D 


3 A 00 


D6CE 




SUI 


EOP 


3A02 


C2QA3A 




JNZ 


PP040 


3A05 


85 




ADD 


L 


3A06 


37 




STC 




3A07 


CA343A 




JZ 


PP220 


3A0A 




PP040 


EQU 


$ 


3A0A 


2D 




DCR 


L 


3A0B 


3E0D 




MVI 


A*CR 


3A0D 


BE 




CMP 


M 


3A0E 


CA133A 




JZ 


PP050 


3A11 


2C 




INR 


L 


3A12 


77 




MOV 


M*A 


3A13 




PP050 


EQU 


$ 


3A13 


2C 




INR 


L 


3A14 


CA3F3A 




JZ 


PP500 


3A17 


360A 




MVI 


M*LF 


3A19 


2C 




INR 


L 



; CCR)LF APPENDED* 

; ******************* 



3A1A 


1B 




DCX D 


3A1B 


1B 




DCX D 


3A1C 


7D 




MOV A*L 


3A1D 


12 




STAX D 


3A1E 


13 




INX D 


3A1F 


3EFF 




MVI A*-1 


3A21 


12 




STAX D 


3A22 


13 




INX D 






;******************* 






; if 


LOCAL READ IN 






; ******************* 


3A23 


CD8D41 




CALL PUTIO 


3A26 


D2343A 




JNC PP220 


3A29 


3A4FFF 




LDA ICERR 


3A2C 


FE7F 




CPI 177Q 


3A2E 


D4CB3D 




CNC IERCL 
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;6ETPT1 TAKES ARG IN A 

;6ET PTR TO START OF BUFFER 

;FILL BUFFER 

;GET NEXT BYTE 

;END OF LINE - OUTPUT IT 

;FILL CHARACTER? 

;¥ES - GET NEXT BYTE 
;NGN-DISPLA¥ING TERMINATOR? 

;YES - GET NEXT BYTE 
;PUT BYTE IN BUF 
;INC POINTER 
;REPORT BUFFER OVERFLOW 
;WAS IT END OF LINE? 
;N0 - GET NEXT BYTE 
;YES - DELETE EOL FROM BUF 
;FIND NEXT LINE POINTER 

;CNXTCKR RETURNS FILLS) 
;NOT THERE YET - CONTINUE 
r ************* ************ 

,E -> NEXT LINE POINTER * 

t ****************** ******* 

;GET NEXT BYTE 

;D*E -> BUFFER STATUS 

;END OF PAGE? 

;N0 - OUTPUT LINE 

;YES - ANY BYTES IN BUF? 

; (PREPARE FOR ERROR EXIT) 
;N0 - RELEASE BUF AND QUIT 
;OUTPUT LINE 
;1S LAST LINE A CR? 



;YES - JUST APPEND LF 
;N0 - APPEND CR AND LF 

;APPEND LINE FEED 
;IS THERE ROOM FOR THE LF? 
;N0 - REPORT BUFFER OVERFLOW 
;YES - INSERT IT 
;AND INCREMENT COUNT 
************************* 

MARK BUFFER FOR OUTPUT * 
************************* 

;D # E -> LENGTH 
;L = LENGTH 



;D*E -> TYPE 
;-1 => DATA 

;D,E -> STATUS 
***************************** 

PROGRESS* OUTDEV <- SAVOUT * 
***************************** 

;OUTPUT BUFFER 
;N0 ERROR - QUIT 
;TIME TO SWAP CTO»S? 

;(-1 => YES) 
;YES - CLEAR ERROR FLAG... 
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3A31 


048D41 




CNC 


PUTIO 


3A34 




PP220 


ESU 


$ 


3A34 


D1 




POP 


D 


3A35 


3A4FFF 




LDA 


ICERR 


3A38 


FE47 




CPI 


FX*1 


3A3A 


BO 




RNC 




3A3B 


C3E936 




JMP 


UREXT 



3A3E 
3A3E 
3A3F 
3A3F 
3A42 
3A45 



3A48 
3A48 
3A4B 
3A4D 



3A50 
3A50 
3A53 
3A56 
3A59 
3A5C 
3A5D 



3A60 
3 A 60 
3A63 
3A63 
3A65 
3A68 
3A6B 
3A6E 
3A71 
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;...AND TRY AGAIN 

;D,E -> BLOCKS FOR RELEASE 
;AN¥ ERRORS? 

;<U IS NOT A VALID OUTPT ERR 

;N0 - RETURN NC => NO ERROR 

;YES - RETURN C => CLR BUFS 



D1 

2A64Q0 
CDC34f 
C3343A 



3AF3FF 

E608 

CA6Q3A 



CD58Q0 

CA503A 

CD2EQ0 

C25C3A 

D8 

C35E00 



CD2500 

3E1A 

32C0FF 

CD2E2B 

DA 2 500 

CD2E00 

C2633A 



; *************************** 

; REPORT BUFFER OVERFLOW * 
• *************************** 

PP490 EOU S 

POP D 
PP500 EftU $ 

LHLD BFMSG 

CALL IFAI1 

.IMP PP220 



;"BUFFER OVERFLOW 
;SET ERROR FLAG 
^REPORT ERROR 



MESSAGE 



* 
i 

i 

i 
i 
» 
i 



************************ 

USREDA - PERFORM EDIT MODE "RECORD** 

LOCAL: COPY DISPLAY TO OUTPUT DEVICES, 
COPY FILE FROM INPUT TO OUTPUT, 
TERMINATE EDIT MODE. 

REMOTE: COPY DISPLAY TO OUTPUT DEVICES, 
STAY IN EDIT MODE. 

NO PARAMETERS, DESTROYS ALL REGISTERS 



UREDA 



EQU 
LDA 
ANI 
JZ 



$ 

MFL62 
RMOTE 
EA500 



; ********************* 

; DO REMOTE "RECORD" 

•.ft******************** 



EAtOO 



E«U 

CALL 

JZ 

CALL 

JNZ 

RC 

JMP 



$ 

GTDCM 
EA100 
PBLKO 
EA100 

MKOFF 



********************* 

DO LOCAL "RECORD" 
********************* 
EQU $ 



;REMOTE OR LOCAL? 

;LOCAL - 

** 

* 
** 

^MONITOR DATACOM: DATA REC»D 
;YES - CONTINUE MONITORING 
;WRITE TOP LINE TO OUT DEV»S 
;MORE TO DO - CONTINUE 
;RETURN ON PTBLKS ERROR 
;FINISHED, NO ERRORS 
* 
* 



EA500 



CALL CURPH ;LET USER SEE WHAT'S GOING 

EAS20 EOU S ;RECORD SCREEN 

MVI A, 26 ;PUT CURSOR OFF SCREEN TO 

STA CRROW ;AVOID PTBLK ERRORS 

CALL RTSCN ;USER INTERRUPT? 

JC CURPH ;YES - HOME UP AND RETURN 

CALL PBLKO ;WRITE TOP LINE TO OUT DEV'S 

JNZ EA520 ;MORE LINES - CONTINUE 

;********************************** 

; ONLY ONE LINE LEFT ON DISPLAY * 
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3A8D 
3A90 
3A92 
3A95 
3A97 
3A9A 
3A9D 
3A9E 
3AA1 
3AA2 
3AA5 
3AA6 
3AA9 
3AAC 
3AAF 
3AAF 
3AB1 
3AB4 
3AB4 
3AB6 
3AB9 
3ABC 



3ABF 
3ABF 



3AC0 
3AC0 



3AC1 



;********************************** 



3A74 


08 


R€ 




3A75 


CD5EG0 


CALL 


MKOFF 


3 A 78 


CD5B00 


CALL 


MKSCH 


3A7B 


CA873A 


JZ 


EA550 


3A7E 


26 


DCX 


H 


3A7F 


7E 


MOV 


A,M 


3A80 


23 


INX 


H 


3A81 


FECC 


CPI 


EOL 


3A83 


EB 


XCHG 




3A84 


C4B239 


CNZ 


PTPLN 


3A87 


EA550 EQU 


$ 


3A87 


CD2500 


CALL 


CORPH 


3A8A 


CD31Q0 


CALL 


CEARL 



;8UIT ON PTBLK ERROR 

;TURN OFF MEMORY LOCK 

;6ET LAST ROW CIF ANY) 

;N0 UNLOCKED ROW 

;UNLOCKED ROW - GET 1ST CHAR 



;IS IT A NULL ROW? 

;PTTPLN WANTS D,E -> LINE 
;N0 - OUTPUT IT 



3A4EFF 

FE04 

CA4 039 

E603 

CAB43A 

2166FF 

A6 

CA4D39 

67 

CDS02B 

BC 

3A62FF 

CAAF3A 

3A5BFF 

E601 
C24D39 

0600 
CBFE3E 
044039 
C3E936 



05 



05 



;HOME CURSOR 

; DELETE TOP LINE 

;********************************* 

; COPT REST OF INPUT TO OUTPUT * 

;********************************* 



(IF ANY> 



EA580 



EA600 



LOA 
CPI 
JZ 

ANI 

JZ 

LXI 

ANA 

JZ 

MOV 

CALL 

CMP 

LDA 

JZ 

LOA 

ESU 

ANI 

JNZ 

EftU 

MVI 

CALL 

CNC 

JMP 



IPDEV ;6ET INPUT DEVICE 

OSPLY ;IS IT DISPLAY? 

URTED ;YES - TURN OFF EDIT 8 RETUR 

LTCTU+RTCTU 



;INPUT NOT TAPE, CONTINUE 
INPUT TAPE INSERTED? 



;IS 



;N0 - QUIT 
;SAVE INPUT UNIT 
;6ET BIT FOR SEL UNIT 
;IS INPUT UNIT SELECTED? 
;YES - GET BITS FOR SEL. 



UNI 



EA600 

H,CSTAT 

M 

URTED 

K,A 

6CTBT 

H 

CTRLO 

EA580 

CTRLO+OTHER-STCNT 

$ 

EOF ;TAPE AT EOF? 

URTED ;YES - QUIT 

S ; (ENTRY FOR OTHER DEVICES > 

B,0 ;<SET FOR XFR TO EOF) 

XRD2D ;N0 - TRANSFER TO END OF FIL 

URTED ;N0 ERRORS - TURN OFF EDIT 

UREXT ;REPORT ANY ERRORS S RET 



;N0 - GET OTHER 



# 

i 
# 
i 



USRXFL - USER TRANSFER ONE RECORD 



URXFL 



E9U 
OCR 



USRXFF - USER TRANSFER TO END OF FILE MARK 



URXFF 



EQU 
OCR 



$ 

B 



USRXFA - USER TRANSFER TO EVD MARK 



URXFA EQU $ 



FALL THROUGH TO USRXFR 
*********************** 
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3AC1 
3AC1 
3AC2 



3AC5 



B7 
C3FE3E 



3AC5 




3AC5 


82545241 


3AC9 


4E53504F 


3ACD 


52542058 


3AD1 


205A4549 


3A05 


4C454E00 


3AD9 




3AD9 


82535543 


3ADD 


48542042 


3AE1 


414E4441 


3AE5 


4E46414E 


3AE9 


4700 


3AEB 




3AEB 


8342414E 


3AEF 


442D454E 


3AF3 


444D4152 


3AF7 


4B454E20 


3AFB 


00 


3AFC 




3AFC 


8346554E 


3 BOO 


4B 54494 F 


3B04 


4E534645 


3B08 


484C4552 


3B0C 


202D20 


3B0F 




3B0F 


8242414E 


3B13 


44454E44 


3B17 


450G 


3B19 




381 9 


82535543 


3B1D 


485420 


3B20 




3B20 


8253544F 


3B24 


52592D45 


3B28 


4E444500 


3B2C 




3B2C 


82534348 


3B30 


52454942 


3B34 


2D535045 


3B38 


52524500 


3B3C 




3B3C 


82535543 


3B40 


48452053 



; USRXFR - USER INITIATE!* TRANSFER 

; ENTRY: B = TRANSFER LIBIT 

URXFR EQU $ 

ORA A ;NC *> TRANSFER 

JKP XR02D ;PERFORM TRANSFER 

; ******************* 

; DISPLAY MESSAGES * 

;******************* 



MSSGE EQU $ 



;FOR CROSS REFERENCE 



SPMSG EQU $ 

DB INVRS, •TRANSPORT X ZEILEN',0 



LPKSG EQU $ 

DB INVRS,»SUCHT BANDANFAN6 v # 



OFMSG EQU $ 

DB 203Q, , BAND-END«ARKEN »,0 



UTMSG EQU $ 

DB 203« # *FUNKTIONSFEHLER - • 



ETMS6 EQU S 

DB INVRS,*BANDENDE*,0 



FVDHS EQU S 

DB IN¥RS,«SUCHT ■ 

EDMSG EQU $ 

DB INVRS, , STORT-ENDE* # 



NCttSG EQU $ 

DB INVRS, 'SCHREIB-SPERRE^Q 



LCNSG EQU $ 

DB INVRS, »SUCHE STORT«,0 
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3B44 
3B48 

3B49 
3B49 
3B4D 
3B51 
3B55 
3B58 
3B5C 
3B60 
3B64 
3B68 
3B6C 
3B70 
3B71 
3B75 

3B78 
3B78 
3B7C 
3B7E 
3B7E 
3B82 
3B86 
3B86 
3B8A 
3B8E 
3B92 
3B94 
3B94 
3B98 
3B9C 
3BA0 
3BA4 
3BA8 
3BAC 
3 BAB 
3BAD 
3BBt 
3BB5 
3BB9 
3BBC 
3BBC 
3BC0 
3BC4 
3BC8 

3BCC 

38CC 
3BBO 
3BD3 
3B07 
3BDB 
3BDF 
3BE1 
3BE1 
3BE2 
3BE3 
3BE3 



544F5259 
00 



8253544F 

5259204E 

554D4D45 

52802Q 

8242414E 

444C4145 

4E474520 

494 E 205 A 

4F4C4C2Q 

4E4F4348 

80 

3A202082 

CC8200 



824C4553 
4520 

82464548 
4C455200 

824B4549 
4E204241 
4E44202D 
2000 

8222564F 
4E22202D 
20224E41 
43482220 
2D20414E 
5741484C 
CE 

82414E57 
41484G2D 
4645484C 
4552CE 

82445255 
434B4552 
2D464548 
4C4552CE 



824C4553 

452D2F 

53434852 

45494256 

45525355 

4348 

CE 
80 

204C494E 



FIKMS 



HDMSG 



FILMS 



NPMSG 



I0MS6 



TTMSG 



PEMSG 



RRYMS 



EPMSG 

NLTHS; 
OLTMS 



EQU $ 

DB IMVRS, *STGRY MUMMER * # 200Q # • • 



DB INVRS^BAWDLAENGE IK ZOLL • 

DB , N0CH*,2OOQ 

DB "s *,INVRS,EOL,INVR$ r O 



EQU $ 

DB 202Q,*LESE « 

EQU $ ;6EHERAL FAIL MESSAGE 

DB INVRS,*FEHLER',0 

EQU $ 

DB 1NVRS / , KEIN BAND - *,0 



EQU $ 

DB 202Q, , "VON" - "MACH" 



- ANWAHL' 



DB EOP 

EQU $ 

DB 2O2Q,*ANWAHL-FEHLER*,E0P 



EQU $ 

DB INVRS,»BRUCKER-F£HLER*,EOP 



EQU $ 

DB 202ft, •LESE-/* 

DB •SCHREIBVERSUCH' 



EQU $ 

DB EOP 

DB 200Q 

EQU $ 

DB • L1NKES LAUF«ERK*,0 
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3BE7 
3BEB 
3BEF 
3BF3 
3BF4 
3BF5 
3BF5 
3BF9 
3BFD 
3C01 
3C05 
3C07 
3C07 
3C0B 
3C0F 
3C13 
3C16 
3C16 
3C1A 
3C1E 
3C22 
3C23 
3C23 
3C27 
3C2B 
3C2F 
3C32 
3C32 
3C33 
3C33 
3C37 
3C3B 
3C3F 
3C3F 
3C43 
3C47 
3C4A 
3C4E 
3C52 
3C56 
3C56 
3C5A 
3C5E 
3C62 
3C66 
3C6A 
3C6E 
3C6F 
3C6F 
3C73 
3C77 
3C7B 
3C7C 
3C7C 
3C80 
3C83 
3C83 
3C85 
3C85 
3C89 



4B4 55320 

4C415546 

5745524B 

00 

80 

20524543 
48544553 
204C4155 
46574552 
4B00 

82414E57 
41484C2D 
4645484C 
4552CE 

82574152 
54454E20 
41554620 
00 

82534348 
52454942 
4645484C 
455200 

00 

8253544F 
52592045 
4E444500 

82554 E47 

4C454943 

484520 

44415445 

4E534145 

545A4500 

82554E54 
45525343 
48494544 
20494 E20 
5A454943 
48454E20 
00 

2C204441 
54454E53 
41545A20 
00 

2C2Q5354 
4F5259 

20QC 

8342414E 
4420424C 



NRTMS: 
ORTMS 



TFMSG 



BYWSG 



WFMSG 



NtMSG 
EFMS6 

DRMSG 



DFMSG 



RCMSG 



FLMSG 

BKM SG 
SALKS 



DB 20GQ 

EQU $ 

OB * RECHTES LAUFWERK',0 



EQU $ 

DB INVRS^'ANWAHL-FEHLER^EOP 



EQU $ 

DB INVRS,*WARTEN AOF ^0 



EQU $ 

DB INVRS,*SCHREIBFEBLER , ,0 



EQU $ 

DB 

EQU $ 

DB INVRS # »STORY-ENDE , ,0 



EQU $ 

DB 202Q,*UNGLEICHE • 



DB •DATENSAETZE , # 



EQU $ 

DB 202Q,»UNTERSCHIED IN 2EICHEN * ,0 



EQU $ 

DB *, DATEMSATZ %Q 



EQU $ 

DB •, STORY» 

EQU $ 

DB * *,0 

EQU $ 

DB 203Q,*BAND BLOCKIERT'^O 
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3C8D 
3C91 
3C95 
3C95 
3C99 
3C9D 
3CA1 
3CA5 
3CA9 
3CAC 
3CAC 
3CB0 
3CB4 
3CB8 
3CBC 

3CBD 
3CB0 

3CC1 
3CC1 

3CC4 
3CC4 

3CC7 
3CC7 
3CCB 



3CGC 
3CCC 
3CCD 
3CCE 
3CD1 
3CD3 
3CD4 
3CD5 
3CD6 



3CD7 
3CD7 



4F434B49 
45525400 

8253544 F 
5259204E 
49434854 
20564 F52 
48414E44 
454E00 

82524553 
45542020 
28464548 
4C455229 
CE 



202D3UE 

2O2B0O 

202D00 



2C202082 
00 



FSMSG EQU $ 

DB INVRS # *STORY NICHT VORHANDEN*,0 



CNMSS EQU $ 

DB INVRS, •RESET (FEHLER* » # EOP 



M1MSG EQU $ 

DB » -1%E0P 

PSMSG EQU $ 

DB * **,0 

MSMSG EQU S 

DB • -*,0 

CMAMS EQU $ 

DB ', * # INVRS,0 



r 
# 
i 



DSPNUM - CONVERT NUMBER AMD PLACE IN MEMORY 

ENTRY: <» # L> = ADDRESS FOR CHARS. 
A - NUMBER TO BE CONVERTED 

EXIT: (H,L> = ADDRESS AFTER NUMBER 



C5 

D5 

CD6F00 

3600 

23 

D1 

C1 

C9 



PNUM EQU $ 
PUSH B 
PUSH D 
CALL B2DE0 
MVI M,G 
INX H 
POP D 
POP B 
RET 



;SAVE RE6ISTER B-E 



;ADD NULL TO CONTINUE MESSA6 
;SET TO NEXT MESSAGE BYTE 
^RESTORE REGITER B-E 

; RETURN 



; CARDIQ - DISPLAY FIRST HALF OF MESSAGE ONLY 
; ENTRY: H,L » POINTER TO MESSAGE 



CD642E 



CRDIO EQU $ 

CALL STPMS 



:GET MS6 FOR SELECTED TAPE 



*********************** 



; CARDIS - SET DISPLAY TO I/O MESSAGE 

r 



ENTRY: MSGPTt = PTR TO 1ST HALF OF MSS 
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3017 




3017 


05 


3018 




3018 


78 
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MSGPT3. . .MS6PT8 = PTRS TO REST OF 
MESSAGE 







* 






e 






# 






i 






t 






i 






t 






e 


3CDA 




c 


3CDA 


37 




3CDB 


C5 




3CDC 


05 




3CBD 


CD0400 




3CE0 


01 




3CE1 


C1 




3CE2 


C9 




r 
r 


3CE3 




i 

r 
# 
i 

c 


3CE3 


C0CB30 




3CE6 


3E0A 




3CE8 


C0283D 




3CEB 


C0352E 




3CEE 


08 




3CEF 


3EF8 




3CF1 


C09E2B 




3CF4 


C48843 




3CF7 


C0B344 




3CFA 




c 


3CFA 


CD 7741 




3CFD 


0600 




3CFF 


DA 1730 




3DG2 


3E2C 




3D04 


12 




3005 


1B 




3 006 


1A 




3007 


B7 




3 DOS 


F21830 




3D0B 


IB 




300C 


C05E30 




300F 


C03043 




3012 


0600 




3014 


02FA3C 


i 

* 
t 


3017 




r 
i 
i 

c 



EXIT 



A,H,L OESTROYEO 
H = BASEH 



ONE TO EIGHT MESSAGE POINTERS MAY BE USEO. 

ALL PARTS END IN "O* EXCEPT THE LAST, WHICH ENO 

IN EOP. 



ROIS 



EQU $ 

STC 

PUSH B 
PUSH © 
CALL OPMSG 
POP D 



;C => CLOBBER DISPLAY FIRST 



;OISPLAT MESSA6E 



POP 
RET 



B 



*********************************************** 

ESCAPE SEQUENCE CONTROL ********************** 
*********************************************** 
****************** 

BINARY TRANSFER * 
****************** 



DCOP 



0050 



EQU 

CALL 

MVI 

CALL 

CALL 

RC 

MVI 

CALL 

CNZ 

CALL 

EQU 

CALL 

MVI 

JC 

MVI 

STAX 

OCX 

LOAX 

ORA 

iP 

OCX 

CALL 

CALL 

MVI 

JNC 



$ 

IERCL 



;CLEAR I/O ERROR FLAG 

;SET DATACOM FOR FAST C9600> 

;BINARY 
;INPUT TAPE »> WAIT TILL FRE 
; RETURN ON USER INTERRUPT 
A,-1-FLRED-UREAD-RW0WT 



A^FTBIN 

DKCTL 

BYCKO 



CIOFS 

RABR1 

ITOSO 

$ 

GETIO 

B,0 

C0100 

A,DTC0M 





D 

A 

C0110 



GTPTR 

BR 010 

B,0 

CD 050 



;CLEAR USER S FILE REAO FLAG 
;IF NOT ZERO, ABORT REAO 
;INPUT=BISPLAY => INITIALIZE 



;6ET A RECORD 
;<SET B-RE6 



FOR EXIT> 
;EXIT ON INPUT ERROR 
;MARK FOR OUTPUT TO DATACOM 

;GET RECORD TYPE 



;OATA RECORD? 

;N0 - EXIT 

;BNR010 WANTS D,E->LENGTH 

;AND H,L -> FIRST BYTE 
;SEND THE RECORD 

;<SET B-RE6 FOR EXIT) 
;N0 ERROR - GET NEXT RECORD 
****************************************** 
I/O COMPLETED - SEND TWO-BYTE RECORD: * 

0, => SUCCESS * 

-1,-1 => FAILURE * 

RESTORE BAUD RATE AND RETURN * 

****************************************** 

0100 EQU $ ;ERROR RETURN 

OCR B 

0110 EQU $ ^SUCCESSFUL COMPLETION 

MOV A,B 
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3019 


CD4C00 


CALL 


XUTD3 


301 C 


78 


MOV 


A,B 


3010 


CD4G00 


CALL 


XUTD3 


3020 


CD4B3D 


CALL 


FEBFS 


3023 


C02378 


CALL 


ZDBIN 
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; OUTPUT CHAR 

;OUTPUT SECOND CHAR 
;CLEAR BOTH BUFFERS 
;RESET BAUD, 60 TO ASCII 
SIGNAL END OF DATA BLOCK 



LIS 

************************ 

ENDATA - SIGNAL END OF DATA BLOCK 



3026 




EOATA 


EQU $ 


3026 


3E07 




MVI A,EDBLK 






; * * 


******* 






r 
i 
i 


OCMCTL - PEK 


3028 




DMCTL 


EQU $ 


3028 


CD1178 




CALL ZCCTL 


3D2B 


00 




RNC 


302C 


CA1470 




JZ ZBELL 



;PERFORM CONTROL 

;RETURN IF NO ERROR 

;RING AND RETURN IF NO MS6 



************************ 

DCERR - HANDLE DATACOM ERRORS 

ENTRY: C,Z => NON-FATAL 
C # NZ => FATAL 

H,L -> ERROR RESSAGE 

EXIT t NON-FATAL - JUMP TO IOFAIL 

FATAL - DISPLAY MESSAGE AND HANG 



302F 

302F C8 
3030 C36100 



DCERR 



EQU $ 

RZ 

JMP HNGUO 



;NON-FATAL - EXIT 
;DISPLAY «SG AND QUIT 



* * 



************* ******** 

6TIOB0 - WAIT UNTIL A BUFFER IS FREE 

ENTRY: DON*T CARE 

EXIT : C => CTU ERROR OR USER INTERRUPT 
NC -> BUFFER FOUND 

H,L -> STATUS 
A,H,L DESTROYED 



3033 
3033 
3D36 

3039 
3D3C 



GIOBO 



CD092A 
D4242B 

D4403D 
C8 



EQU $ 
CALL CM0N1 
CNC RTSCO 

CNC 6I0BF 
RZ 



;«ONITOR TAPES tC,Z => ERROR 
;MONITOR KYBD CC # Z => USER 

INTERRUPT) 
;8UFFER FREE? (Z => YES) 
;ERROR OR FREE BUFFER 
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3030 


C33330 


r 

; * * 

* 
* 
• 
* 

* 

* 
t 

r 

i 

» 
* 

* 
r 

i 

i 


3040 




GI08F 


3D4Q 
3D43 


213AFF 
7E 




3D44 


B7 




3D45 


C8 




3046 


2E37 




3D48 


7E 




3049 


B7 




304A 


C9 





304B 
304B 
304C 
304F 
3052 



3053 
3053 
3054 
3056 
3059 
305A 
3050 



* * 



FEBFS 



97 

323AFF 
3237FF 
C9 



r 

i * * 



CGBUF 



7B 

FE38 

113AFF 

08 

1137FF 

C9 



JMP 6I0B0 ^CONTINUE WAITING 

********************** 

GTIOBF - FINO AN EMPTY I/O BUFFER 

ENTRY: OON *T CARE 

EXIT : NC 

Z => SUCCESS 

H r L -> STATUS 
NZ => BOTH BUFFERS BUST 

H,L DESTROYED 
A OESTROYEO 

ESU $ 

LXI H,B1STT ;BUF 1 AVAILABLE? 

MOV A,M 

ORA A 

RZ ;YES - RETURN 

MVI L,B2STT*256/256 

MOV A„M ;BUF 2 AVAILABLE? 

ORA A 

RET 

********************** 

FREBFS - FREE BOTH I/O BUFFERS 

ENTRY: 0ON*T CARE 

EXIT : A * Q 

E8U $ 

SUB A 

STA B1STT 

STA B2STT 
RET 

********************** 

CHGBUF - LOOK AT OTHER I/O BUFFER 

ENTRY: 0*E -> BXSTAT # TYPE # OR LEN 

EXIT r 0,E -> STAT OF OTHER BUFFER 
A OESTROYEO 



;LOOK AT OPPOSITE BUFFER 



ECtU $ 

MOV A,E 

CPI B1LEN*256Z256 

LXI D,B1STT 

RC 

LXI D # B2STT 

RET 



************************ 
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3D5E 
3D5E 
3D5F 
3D5F 
3D61 
3064 
3D65 
3D68 



3D66 

3069 
3D6B 

3060 
3D6F 
3D71 
3073 

3075 
3077 

3079 
3D7B 
30 70 
307F 

3081 
3083 
3085 
3087 

3089 
308B 
3080 
308F 

309t 
3093 



3095 
3095 
3097 
3099 
309B 



7B 

FE38 

2100FC 

00 

210QF0 

C9 



2020 
C7B0 

2B2B 
0080 
2020 
1080 

3039 
OA80 

4246 
9530 
6266 
9530 

4057 
9F30 
6077 
9F30 

5E5E 
56BE 
7E7E 
56BE 

OOFF 

1380 



E130 
F13D 
3F3E 
1300 



r 
r 
i 
i 
i 
r 
i 
e 



GTPTR 



GTPT1 



6ETPTR - GET POINTER TO 1ST BYTE OF I/O BUF 
ENTRYs D,E -> I/O BUFFER STATUS, TYPE, LENGT 
ENTRY 6ETPT1; A = LOW BYTE OF POINTER 
EXIT : H,L -> FIRST BYTE OF ASSOCIATED BUF 



EQU $ 

MOV A,E 

EQU $ 

CPI BlLEN*256/256 

LXI H,IBUF1 

RNC 

LXI H,IBUF2 

RET 



ICTAB 



I/O ENTRY TABLES 
EOU $-3 



OB 400,40® ; IGNORE BLANKS IN ESCAPE 
OW IC010+B15 ;SEQUENCE 

OB 530,530 ;♦ - SET SIGN FLAG TO +1 
OW DPLUS+B15 

OB 550,550 ; SET SIGN FLAG TO -1 

OW DMNUS+B15 

OB 600,710 ; DIGITS <0> TO <9> 

OW 0CNUM+B15 ^ACCUMULATE OECIMAL VALUE 

OB 1020,1060 ;RAN6E FROM <B> TO <F> 
OW ICT2Q 

OB 1420,1460 ;LOWER CASE CHAR RANGE 
OW ICT20 

OB 1150,1270 ;RANGE FROM <M> TO <W> 

OW ICT30 

OB 1550,1670 ;LOWER CASE CHAR RANGE 
OW ICT30 

OB 1360,1360 ^CHARACTER < > 

OW IC110+B15 ;PR0CESS STATUS REQUEST 

OB 1760,1760 ;L0WER CASE < > 

OW IC110+B15 

OB 00,3770 ; CATCH-ALL RANGE 

OW ECEN0+B15 ;60 TO ERROR ROUTINE 



ENTRY LISTS 



ICT20 



EOU $ 

OW 

DW 

OW 

OW 



ICQ20 ;B - SINGLE RECORO TRANSFER 

IC030 ;C - CONTROL FUNCTION 

ICQ80 ;D - DESTINATION DEVICE 

ECENO ;E - INVALID, FLAG ERROR 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



8080 MACRO ASSEMBLER, VER 2.4 



3090 E03D 



30B5 
3DB5 
3DB8 
3DBS 
30BB 
30BE 



3DC0 
3DcO 

30C1 
30C1 
3DC2 
3DC3 
3DC4 
3DC7 
30C7 
3DC9 



DW 
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IC050 ;F - SIN6LE FILE TRANSFER 



TRANSFER TO END OF DATA 
INVALID, FLAG ERROR 
INVALID, FLAG ERROR 
CONTROL PARAMETER 
INVALID, FLAG ERROR 
READ RECORD TO DATACOM 
DEFINE SOURCE DEVICE 
INVALID, FLAG ERROR 
UNIT SPECIFIER 
INVALID, FLAG ERROR 
WRITE DATA FROM DATACOM 



*********************** 
IOCNTL - I/O CONTROL 

<ESO<fc><L0WER CASE P> . . . 



3D9F 


# 

ICT30 EQU 


$ 




3D9F 


DF3D 


DM 


IC070 


;m 


3DA1 


1300 


DW 


EC END 


;N 


3DA3 


1300 


DM 


EC END 


;o 


3DA5 


263E 


DW 


IC090 


;p 


3DA7 


1300 


DW 


EC END 


;8 


3DA9 


EF3D 


DW 


IC100 


;R 


3DAB 


403E 


DW 


IC060 


;s 


3DAD 


1300 


DW 


EC END 


;T 


3DAF 


353E 


DW 


IC040 


;u 


3DB1 


1300 


DW 


EC END 


;v 


3DB3 


0A3E 


DW 


IC120 


;w 



21663D 
22D2FF 

21DFFF 
OEOB 



ICNTL EQO S 

LXI H,ICTAB 

SHLD RNGTA 
ICCLR EQU $ 

LXI H, IDATA+1 ;SET STARTING ADDRESS 

MVI C,11 ;SET NUMBER OF BYTES 



;SET ESCAPE SEQUENCE 
;RAN6E TABLE POINTER 



r 
t 
i 
t 
# 
r 

M 

i 

ICCL1 



I0CCL1 - CLEAR RAM AREA 

ENTRY: C = NUMBER OF BYTES TO BE CLEARED 
H = BASEH 
L = UPPER ADDRESS LIMIT 



AF 



77 
2D 
OD 
C2C13D 

2ED1 
3602 



EXIT : H,L = ESCFL6 

;CLEAR TO ZERO 



EQU $ 

XRA A 



; DECREMENT ADDRESS 
;ALL LOCATIONS DONE? 
;N0 - DO NEXT BYTE 



IC002 EQU $ 

MOV M,A 
DCR L 
DCR C 
JNZ IC002 

IC010 EQU $ 

MVI L,ECFL6 
MVI M,2 



; IOERCL - CLEAR I/O ERROR FLAG 
; IOCERR=S => SUCCESS 



3DCB 




IERCL 


EQU 


$ 


3DCB 


3E53 




MVI 


A, SX 


3DCD 


324FFF 




STA 


ICERR 


3DD0 


C9 




RET 





- ******************************** 

; I/O COMMAND TABLE AND EQUATES * 

********************************* 
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30CF 
3BB1 
3DD3 
3B&S 
3BB7 
3DD9 
3BBB 
300D 

0001 
0002 
0003 
0004 
0005 
0006 
0007 



3BBF 
30DF 



3DE0 
30E0 



3BE1 



30E1 
30E4 
3DE5 
3BE6 
3BE9 
30EC 



ICMT8 



F83E 
F93E 
FA3E 
CF3F 
BA4G 
9640 
C14Q 



IBNUK 
IFNUM 
IMNUM 
ICNUM 
ItfNUM 
IRNUM 
ISNUM 



EQU 

BW 

BU 

DW 

BW 

BW 

BW 

BW 

EQU 
EQU 
ECU 
EQU 
EQU 
EQU 
EQU 



S-2 

XRREC 

XREOF 

XREVB 

CRLIO 

IWRXT 

IREAB 

IS TAT 

1 
2 
3 
4 
5 
6 
7 



;1 - TRANSFER/COMPARE RECORB 
;2 - TRANSFER/COMPARE A FILE 
;3 - TRANSFER/COMPARE MEBIOM 
;4 - I/O CONTROL 
;5 - STORE BATACOM RECORB 
*6 - REAB RECORB TO BATA COM 
;7 - GET I/O STATUS 

;TRANSFER/COMPARE A RECORD 
;TRANSFER/COMPARE A FILE 
;TRAMSFER/COMPARE MEBIUN 
;EXECUTE I/O CONTROL 
; STORE RECORB FROM BATA CQMK 
;REAB RECORB TO BATA COKM 
;GET I/O STATUS 



<M> - TRANSFER TO ENB OF BATA 



04 



IC070 EQU S 
INR B 



<F> - SINGLE FILE 



04 



IC050 EQU $ 
INR B 



;COMMANO COBE = 3 
TRANSFER 

; COMMANB COBE = 2 



<B> - SINGLE RECORB TRANSFER 



IC020 EQU $ 



CBBE3E 

CO 

70 

3ABEFF 

32B8FF 

C3683E 



CALL 

RNZ 

MOV 

LBA 

STA 

.IMP 



CKCMB 

M # B 
IBATA 
ICTYP 
ICEXO 



COMMANB COBE = 1 

;ANY PREVIOUS COMMANB? 

;YES - ABORT ESCAPE SEQUENCE 
;N0 - STORE COMMANB COBE 
;SAVE COMMANB MOBIFIER FOR 

;LATER ANALYSIS 
;CLEAR PARM VALUE ANB EXIT 



3BEF 




ICtQO 


EQU S 


3BEF 


04 






INR B 


3BF0 


04 






INR B 






i 


<c> 


- CONTROL 


3BF1 




IC030 


EQU $ 


3BF1 


04 






INR B 


3BF2 


04 






INR B 


3BF3 


04 






INR B 


3BF4 


CBBE3E 


# 




CALL CKCMB 


3BF7 


CO 






RNZ 


3BF8 


70 






MOV M,B 


3BF9 


3ABEFF 






LBA IBATA 


3BFC 


FEOB 






CPI 11 


3BFE 


FO 






RP 



<R> - REAB A RECORB TO THE BATACOM 



;COMMANB COBE = 6 



;COMMANB COBE = 4 



;ANY PREVIOUS COMMANB? 

;YES - ABORT ESCAPE SEQUENCE 
;N0 - SET COMMANB COBE NUMBER 

;FETCH LSB OF CURRENT PARAM 

;PARAM TOO BIG? 

;YES - ABORT ESC SEQ 
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3DFF 


32D8FF 






STA ICTYP 


;SAVE IT FOR AN INDEX 


3E02 


3ADFFF 






LDA IDATA+1 




3 EOS 


B7 






ORA A 


;IS MSB ZERO? 


3E06 


CO 






RNZ 


;NO - ABORT ESCAPE SEQUENCE 


3E07 


C3683E 






JMP ICEXO 


;YES - CLEAR PARK AND EXIT 






# 


<W> 


- STORE A RECORD FROM THE DATACOM 


3EOA 




IC120 


EQU $ 




3EOA 


CDDE3E 






CALL CKCMD 


;ANY PREVIOUS COMMAND? 


3E0D 


CO 






RNZ 


;YES - ABORT ESCAPE SEQUENCE 


3E0E 


3605 






MVI M^IWNUM 


;NQ - SET COMMAND CODE NUMBER 


3E10 


2A0EFF 






LHLD IDATA 


^TRANSFER PARAMETER TO 


3E13 


22D5FF 






SHLD ICCNT 


;COUNT FIELD 


3E16 


3ADDFF 






LDA ICS6N 


;TRANSFER SIGN 


3E19 


21DCFF 






LXI H,IPSGN 




3E1C 


77 






MOV M # A 




3E1D 


B7 






ORA A 


;ANY PARAMETER RECEIVED? 


3E1E 


C2683E 






JNZ ICEXO 


;YES - CLEAR PARAM AND EXIT 


3E21 


3680 






MVI M r 200Q 


;N0 - SET TO ABSOLUTE 


3E23 


C3683E 







JMP ICEXO 


;CLEAR PARAM AND EXIT 






i 
* 


<P> 


- CONTROL PARAMETER 


3E26 




IC090 


EQU $ 




3E26 


2ADEFF 






LHLD IDATA 


;TRANSFER PARAMETER TO COUNT 


3E29 


22D5FF 






SHLD ICCNT 


;FIELD 


3E2C 


3ADDFF 






LDA ICSGN 


^TRANSFER SIGN 


3E2F 


32DCFF 






STA IPS6N 




3E32 


C3683E 






JMP ICEXO 


;CLEAR PARMETER AND EXIT 






i 
i 


<u> 


- DEVICE SPECIFICATION 


3E35 




ICQ40 


EQU $ 




3E35 


CDE43E 






CALL DNDEV 


;IS IT A VALID DEVICE CODE? 


3E38 


CO 






RNZ 


;NO - ABORT ESCAPE SEQUENCE 


3E39 


32DBFF 






STA ICDEV 


;PUT INTO DEVICE WORD 


3E3C 


C3683E 






JMP ICEXO 


;CLEAR PARM AND EXIT 






# 

i 


<D> 


- DEFINE DESTINATION DEVICE 


3E3F 




IC080 


EQU $ 




3E3F 


04 






INR B 


; INDEX TO IOCOUT 






* 
» 


<s> 


• DEFINE SOURCE DEVICE 


3E40 




U060 


EQU $ 




3E40 


3AF4FF 






LDA MFL61 


;IN EDIT MODE? 


3E43 


E610 






AN I EDIT 




3E45 


CO 






RNZ 


;YES - ABORT ESCAPE SEQUENCE 


3E46 


78 






MOV A*B 




3E47 


C6D8 






ADI ICINP-1 


;ADD BASE VALUE 


3E49 


4F 






MOV C # A 




3E4A 


CDE43E 






CALL DNDEV 


;IS IT A VALID DEVICE CODE? 


3E4D 


CO 






RNZ 


;»0 - ABORT ESCAPE SEQUENCE 


3E4E 


69 






MOV L # C 


;YES - MERGE WITH EXISTING 


3E4F 


26 FF 






MVI H,BASEH 


;GET IOCINP/OUT HIGH ADDR 


3E51 


B6 






ORA M 


;DEVICE WORD 


3E52 


77 






MOV M„A 
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3E53 C3683E 



3E56 
3E56 
3E59 
3E5A 
3E5C 
3E5F 
3E62 
3E65 

3E66 
3E67 



3E68 
3E68 
3E6B 
3E6E 
3E6F 
3E72 
3E75 
3E77 
3E7A 
3E7C 
3E7F 



3E80 
3E80 
3E83 
3E84 
3E87 
3E89 
3E8B 
3E8C 
3E8C 
3E8F 
3E9Q 
3E93 
3E96 
3E98 
3E9A 
3E9P 
3EA0 
3EA3 
3EA5 



3EA8 
3EAB 
3EAC 
3EAD 



CDDE3E 

CO 

3607 

CDE43E 

C2663E 

32DBFF 

AF 

B7 
CO 



210000 

22DEFF 

97 

32DDFF 

3A88FF 

E620 

CA803E 

3E02 

3201 FF 

C9 



21BCFF 

B6 

C28C3E 

3601 

2ED5 

34 

CDB937 

08 

CD130G 

3AB7FF 

FE07 

3EF8 

C49E2B 

C48843 

3A6EFF 

E601 

C2B93E 



3AD7FF 
B7 
C8 
FE05 



.IMP ICEXO ;CLEAR PARM AND EXIT 



< > - STATUS REQUEST 



IC110 



EQU $ 

CALL CKCftD 
RNZ 

MVI M^ISNUM 
CALL DNDEV 
JNZ 1C115 
STA ICDEV 
XRA A 



IC115: ORA 
RNZ 



;ANY PREVIOUS COMMAND? 

;YES - ABORT ESCAPE SEQUENCE 
;SET COMMAND CODE NUMBER 
;VALID DEVICE SPECIFIED? 
;N0 - CHECK FOR NO SPEC 

;YES - STORE DEVICE CODE 



;ANY DEVICE SPECIFIED? 

;YES ■- ERROR, ABORT SEQUENCE 
NO - CLEAR PARM AND EXIT 



CLEAR PARAMETER AND EXIT 



ICEXO 



EQU 

LXI 

SHLD 

SUB 

STA 

LDA 

ANI 

JZ 

MVI 

STA 

RET 



$ 

H,Q 
IDATA 
A 

ICSGN 
CHAR 
40Q 
IC13Q 
A, 2 
ECFL6 



;CLEAR THE PARAMETER 

;CLEAR THE SIGN 

;FETCH THE CURRENT CHARACTER 
;IS IT UPPER CASE? 

;YES - PROCESS COMMAND 

;N0 - RETURN TO ESC PROCESSO 



UPPER CASE CHARACTER FOUND - EXECUTE COMMAND 



IC130 EQU 
LXI 
ORA 
JNZ 
MVI 
MVI 
INR 

IC140 EQU 
CALL 
RC 

CALL 
LDA 
CPI 
MVI 
CNZ 
CNZ 
LDA 
ANI 
JNZ 

;********** 

: PERFORM 



H„IPS6N 

M 

IC140 

M,1 

L,ICCNT 

M 

$ 

STDEV 



;ANY PARAMETER REC»D? 



;YES - 
;N0 - SET 



TO DEFAULT OF +1 



;VAHD DEVICE ASSIGNMENT? 
;N0 - TERMINATE ESCAPE SEQ 
;END ESCAPE SEQUENCE 
;IS COMMAND A STATUS REQUEST 



LDA 
ORA 
RZ 
CPI 



EC END 
ICMND 
ISNUM 

A,-1-FLRED-UREAB-RW0WT 
CIOFS ;IF NOT, CLEAR READ FLAGS 
RABR1 ;IF ANY CLEARED, ABORT READ 
BFLGS ;ESC SEQ FROM DATACOM? 
SACOM 
IC150 
************************ 

LOCAL ESCAPE SEQUENCE * 
************************ 

ICMND ;GET COMMAND CODE 

A ;ANY COMMAND EXCEPT DEV SEL? 

;N0 - RETURN IMMEDIATELY 

IWNUM 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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3EAF 


DO 






RNC 




; IGNORE READ, WRITE, STATUS 


3EB0 


21CF30 






LX1 


K^ICMTB 


;GET TABLE BASE ADDRESS 


3EB3 


CBAD41 






CALL 


IDJMP 


^PERFORM FUNCTION 


3EB6 


C3E936 






JMP 


UREXT 


;REPORT ANY ERROR AND QUIT 






; ****************************** :#**** 






• 
# 


PERFORM 


REMOTE ESCAPE SEQUENCE * 






; *********************************** 


3EB9 




IC150 


EQU 


$ 




3EB9 


01FC7E 






LXI 


B,-1-SVBUN-SBC2-SVREC«SINRV 


3EBC 


CD1900 






CALL 


CBLXF 


;CLEAR OUTPUT PENDING FLAGS 


3EBF 


21CF30 






LXI 


H # ICMTB 


;GET TABLE BASE ADDRESS 


3EC2 


3AB7FF 






LDA 


ICMND 


;6ET COMMAND CODE 


3EC5 


B7 






ORA 


A 


;ANY COMMAND EXCEPT BEV SEL? 


3EC6 


C8 






RZ 




;N0 - RETURN IMMEDIATELY 


3EC7 


FE06 






CPI 


IRNUM 




3EC9 


D2AB41 






JNC 


IB4MP 


;READ, STATUS DO NOT RET COD 


3ECC 


CBAD41 






CALL 


IDJMP 




3ECF 


DC4B3D 






CC 


FEBFS 


;FREE BUFFERS ON ERROR 


3ED2 


3A4FFF 






LDA 


ICERR 


;SAVE COMPLETION CODE 


3ED5 


324CFF 






STA 


ICDPT 




3ED8 


010080 






LXI 


B # SVDUN 


;SET UP TO TRANSFER 


3EDB 


C31F0O 


r 




JMP 


SLXFA 








r 
i 


* * 


* * * 


***** 


************* 






# 

* 


CHKCMD - 


CHECK FOR 


PRIOR COMMAND 










EXIT 


t Z = T, 


NO PRIOR COMMAND 






i 






= F # 


COMMAND ALREADY GIVEN 






t 






A = PRIOR COMMAND OR ZERO 


3E0E 




CKCMD 


EQU 


S 




3EDE 


21D7FF 






LXI 


H, ICMND 


;FETCH THE COMMAND WORD 


3EE1 


7E 






MOV 


A,M 




3EE2 


B7 






ORA 


A ; 


SET Z-FLA6 


3EE3 


C9 






RET 


t 


RETURN 



i 

r 
r 
i 

* 



*********************** 

DFNDEV - DEFINE DEVICE FROM PARAMETER VALUE 

ENTRY I H = BASEH 

EXIT : Z = f, INVALID DEVICE CODE 

A = Q„ NO CODE SPECIFIED 

Z = T, DEVICE CODE VALID 

A = DEVICE BIT SETTING 

B # L DESTROYED 



3EE4 




3EE4 


2ADEFF 


3EE7 




3EE7 


7D 


3EE8 


B7 


3EE9 


CAF53E 


3EEC 


84 


3EED 


BD 


3EEE 


CO 


3EEF 


47 



DNDEV 



DNDVO 



EQU $ 

LHLD IDATA 
EQU $ 

A # L 
A 

DN020 
H 
L 



MOV 

ORA 

JZ 

ADD 

CMP 

RNZ 

MOV 



B,A 



; FETCH PARAMETER VALUE 



;WAS IT ZERO? 

;YES - CLEAR z-FLAG AND EXIT 

;ADD IN PARAMETER MSB 

;IS MSB ZERO? 
;N0 - ERROR RETURN 

;CPUT IN B FOR FNDTB2) 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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3EF0 
3EF2 
3EF5 
3EF5 
3EF7 



3EF8 
3EF8 



3EF9 
3EF9 



3EFA 
3EFA 
3EFD 



3EFE 
3EFE 
3F01 
3F02 
3F02 
3F05 
3F08 



3 FOB 



D606 
DA3700 

FE01 
C9 



SUI 6 
4C FDT82 
DN020 EQU $ 
CPI 1 
RET 
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;IS VALUE IN RANGE? 
;YES - SET DEVICE BIT 

;SET N2 (1 IS A VALID CODE) 
;RETORN 



* 

r 
m 

m 

r 
I 
#■ 
i 
i 



*********************** 

XFRREC - TRANSFER ONE RECORD 
ENTRY: H = BASE 
EXITS TO SYSTEM VIA "IODONE" OR "IOFAIL" 



05 



05 



XRREC EQU $ 
OCR B 



;*********************** 

; XFREOF - TRANSFER TO END OF FILE MARK 

XREOF EQU $ 
DCR B 



r 
i 



*********************** 
XFREVD - TRANSFER TO END OF VALID DATA RARK 



3AD8FF 
OF 



XREVD EQU $ 

LDA ICTYP 
RRC 



;6ET COMMAND MODIFIER 

;SET FOR COMPARE OPERATION? 



# 

w 

r 
i 

m 

r 
i 

r 

» 
r 
I 
r 
# 

* 



*********************** 

XFRD2D - TRANSFER FROM DEVICE TO DEVICE 
OR COMPARE BETWEEN DEVICES 

ENTRY ; C => COMPARE 

NC => TRANSFER 
XFRD2D : B - TRANSFER LIMIT 
XFROOt : A = TRANSFER LIMIT 

M,L = INPUT, OUTPUT DEVICES 

EXIT z NC => NO ERROR 
C => ERROR 



2A4DFF 
78 

11AD3F 
3246FF 
D2283F 



EB 



XRD2D EQU % 

LKLD OTDEV 

MOV A,B 
XROOt EQU $ 

LXZ D,XRFCN 

STA CPLIM 

iNC XR100 
;********************************* 
; SET UP FOR COMPARE OPERATION * 

;********************************* 

XCM6 



;GET NORMAL INPUT # OUTPUT DEV 



;IF NOT COMPARE, SKIP 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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3FGC 
3F0F 
3F10 
3F11 
3F12 
3F13 
3F16 
3F17 
3F18 
3F1A 
3F1D 
3F1E 
3F1F 
3F20 
3F20 
3F22 
3F25 



3F28 
3F28 
3F2B 
3F2E 
3F2F 
3F30 
3F33 
3F34 
3F35 
3F37 
3F3A 
3F3B 



3F3C 
3F3F 
3F41 
3F44 
3F45 
3F47 
3F4A 
3F4D 
3F4E 
3F51 
3F52 
3FS5 
3F57 



3F5A 
3F5A 
3F5B 
3F5E 
3F61 
3F62 
3F65 
3F66 



21AD3B 

97 

93 

A3 

BB 

C2C341 

EB 

7t> 

FE04 

C2203F 

7C 

65 

6F 

3EFF 

010001 

11B33F 



3247FF 

2222FF 

7C 

AS 

C2C041 

7C 

B5 

E603 

C43B2E 

D8 

05 



3A23FF 

FE04 

C25A3F 

C5 

3EEF 

CD9E2B 

CCB944 

€1 

3A46FF 

B7 

CCC847 

3E20 

CC982B 



C5 

3A23FF 

CD7A41 

C1 

0A833F 

1B 

1A 



XR050 



LXI 

SUB 

SUB 

ANA 

CMP 

JNZ 

XCH6 

MOV 

CPI 

JNZ 

MOV 

MOV 

MOV 

EQU 

MVI 

LXI 

LXI 



H # TTMSG 

A 

E 

E 

E 

IFAI1 

A,L 

OSPLY 

XR050 

A,H 

H,L 

L r A 

$ 

A,-1 

B^400Q 

D-CPFCN 



ERRORS * 1 PA6E 94 



;"T0 MANY TO DEVICES" 
;MORE THAN ONE OUTPUT 



;YES - REPORT ERROR 
;IS OUTPUT DISPLAY? 



DEV? 



;N0 - 
;YES - 



SWAP INPUT 8 OUTPUT 



;CMPLIM < 1 => RECORD 

;B = FILE 1; C * RECORD 



******************************** 

FINISHED SETTING UP COMPARE * 
******************************** 



XR100 



;SAVE INPUT^OUTPUT DEVICES 
; INPUT * OUTPUT? 

;YES - REORT ERROR 
;ANY TAPES INVOLVED? 



EQU $ 

STA XRLIM 

SHLD SVOUT 

MOV A,H 

ANA L 

JNZ IFAIQ 

MOV A,H 

ORA L 

ANI LTCTU+RTCTU 

CNZ BYCHK ;YES - WAIT TILL NOT BUSY 
RC ; RETURN ON USER INTERRUPT 

PUSH D ;SAVE FUNCTION ADDRESS 

************************************* 

DECIDE WHETHER TO INHIBIT ROLLUP * 
************************************* 

INHIBIT ROLLUP IFF... 



;DISPLAV IS INPUT DEVICE 



LDA SVINP 
CPI DSPLY 
JNZ XR200 
PUSH B 

MVI A,-1-RCINI 
CALL CIOFS 
CZ ITDSP 
POP B 
LDA CPLIM 
ORA A 
CZ CKFMT 
MVI A^RCPGE 
CZ SIOFS 
*********************** 

PROCESS ONE RECORD * 
*********************** 

R200 EttU t ;GET A RECORD FROM INPUT 

PUSH B ;SAVE FILE AND REG COUNTER 

LDA SVINP ;6ET FIRST DEVICE 

CALL GTI01 ;GET A REC FROM THE DEVICE 

POP B 

JC XR500 ;EXIT ON ERROR 

DCX D ;D,E -> TYPE 

LDAX D ;6ET TYPE 



;(INITIALIZ£ DISPLAY IFF 
;NOT DOING RECORD) 

;DOING FILE COPY, 

;NON-F0RHAT MODE 
I INHIBIT ROLLUP 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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3F67 
3F68 
3F6A 
3F6D 
3F6D 
3F6E 
3F6F 
3F7Q 
3F73 
3F74 
3F75 
3F76 
3F76 
3F79 
3F7A 
3F7D 
3F7E 
3F81 
3F82 
3F83 
3F83 
3F85 
3F88 
3F8B 
3F8D 
3F90 
3F91 
3F92 



3F93 
3F93 
3F96 
3F99 
3F9A 
3F9B 
3F9C 
3F9D 
3F9E 
3FAO 
3FA3 
3FA3 
3FA4 
3FA5 
3FA6 
3FA7 
3FAA 



13 

FE02 

F2933F 

E1 

E5 

CF 

BA833F 

1B 

1A 

13 

2146FF 

96 

FA5A3F 

E1 

CDC62D 

B7 

C9 

3E0F 

CD9E2B 

3A23FF 

E603 

C4582C 

E1 

37 

C9 



CDC847 

C2A33F 

97 

12 

IB 

1A 

13 

0602 

C3763F 

1B 

97 

12 

13 

3246FF 

C36D3F 



XR220 



XR250 



XR500 



INX 

CPI 

JP 

EQU 

POP 

POSH 

RST 

JC 

OCX 

LDAX 

INX 

EQU 

LXI 

SUB 

JH 

POP 

CALL 

OR A 

RET 

EQU 

WVI 

CALL 

Lt>A 

ANI 

CNZ 

POP 

STC 

RET 




2 

XR600 
$ 

H 

H 

RTJMP 

XR500 

D 



D 

$ 

H,GPLIM 

H 

XR200 

H 

RVEVO 

A 



^DISPLAY BOUNDARY? 
;YES - SO CHECK IT OOT 
;OUTPUT OR CMP THE RECORD 
;H # L -> FUNCTION 



;EXIT ON ERROR 
;D,E -> TYPE 
;RECALL RECORD TYPE 



;COMP REC TYPE TO XFR LIMIT 

;LIMIT REACHED? 
;N0 - DO NEXT RECORD 



;YES - RETURN SUCCESS 

;ERROR EXIT 

; CLEAR INHIBIT ROLLUP FLA 



A,-1-RCP6E 

CIOFS 

SVINP ;WAS INPUT DEVICE A TAPE? 

LTCTU+RTCTU 

SOPTP ;IF SO, STOP IT 

H 

;RETURN C => ERROR 



DISPLAY BOUNDARY - 

NON-FORMAT MODE - DO NOT PASS BUF # 

JUST CHECK XFR LIMIT 
FORMAT MODE - ONLY END OF DISP POSS, 

PASS IT 



3FAD 
3 FAD 
3FB0 



3A22FF 
C39C41 



XR6Q0 EQU 
CALL 
JNZ 
SUB 
STAX 
DCX 
LDAX 
INX 
SUI 
J HP 

XR650 EQU 
DCX 
SUB 
STAX 
INX 
STA 
JMP 
********** 
TRANSFER 
DEVI 
********** 

RFCN EQU 
LDA 
JMP 

********** 



$ 

CKFHT 

XR650 

A 

D 

D 

D 

D 

2 

XR250 

S 

D 

A 

D 

D 

CPLIM 

XR220 



;IN FORMAT MODE? 

;YES - OUTPUT END OF FILE 

;N0 - RELEASE BUFFER 

;6ET RECORD TYPE 



; CONVERT TO NORMAL TYPE 
^COMPARE WITH XFR LIMIT 

;D # E -> TYPE 
;SET TYPE = EOF 



;SET TRANSFER LIMIT TO EOF 
;OUTPUT THE BUFFER 
************************************* 

FUNCTION - WRITE RECORD TO OUTPUT * 
CE * 

************************************* 

$ 

SVOUT ;6ET OUTPUT DEVICE(S) 
PTI01 ;OUTPUT THE RECORD 
************************************* 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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3FB3 
3FB3 
3FB4 
3FB5 
3FB8 
3FB9 
3FBB 
3FBB 
3FBC 
3FBF 
3FC2 
3FC3 
3FC4 
3FC5 
3FC8 
3FC9 
3FCC 



3FCF 
3FCF 
3FD2 
3F03 
3FD4 
3FD7 
3FD9 
3FDA 
3F0C 
3F0E 
3FE1 
3FE2 
3FE2 
3FE3 
3FE5 



3FE6 
3FE6 
3FE8 
3FE9 
3FEA 
3FED 
3FEF 
3FF2 
3FF5 
3FF5 
3FF8 

3FFA 



OC 

B7 

FABB3F 

04 

OEOO 

C5 

3A22FF 

CD7A41 

C1 

D8 

05 

CD2E33 

01 

DAG641 

C34B30 



210BFF 

7E 

B7 

C2E63F 

2E08 

7E 

0605 

2E4E 

DAE23F 

20 

7E 

2E0B 

77 



2E0C 

7E 

B7 

C2F53F 

3601 

210100 

2205FF 

214CFF 
3EQ1 



CPFCN 



COMPARE FUNCTI 
DEVICE AND 
**************** 

EQU $ 

INR 

ORA 

JM 

INR 

MVI 

EQU 



GP100 



C 

A 

CP100 

B 

C^O 

$ 

POSH B 
LOA SVOUT 
CALL GTI01 
POP B 
RC 

PUSH 
CALL CPBFS 
POP 
JC IFAIL 
JMP FEBFS 
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ON - REAO RECORO FROM OUTPUT * 

COMPARE WITH FIRST RECORO * 

******************************* 

; INCREMENT RECORO COUNT 
;FILE MARK RECORO? 
;N0 - 00 NEXT RECORO 
;¥ES - INCREMENT FILE COUNT 
;ANO CLEAR RECORO COUNT 



;6ET SECOND BEVICE 

;GET A RECORD FROM THE OEVIC 

; REPORT INPUT ERRORS 
;SAVE A STATUS POINTER 
; COMPARE THE RECORDS 

;0N DIFFERENCE, SET ERROR FL 
; SUCCESS - FREE BUFFERS 



*********************** 
CTRLIO - PERFORM I/O CONTROL FUNCTION 



EXITS TO SYSTEM VIA "ESCENO* 



CRLIO 



CR010 



EQU 

LXI 

MOV 

ORA 

JNZ 

MVI 

MOV 

SUI 

MVI 

JC 

OCR 

EQU 

MOV 

MVI 

MOV 



H # ICOEV 
A,M 
A 

CR020 
L,ICTYP 
A,M 
5 

L^IPOEV 
CR010 
L 
$ 

A,M 

L^ICOEV 
M„A 



; FETCH DEVICE PARAMETER 

;OEVICE SPECIFIED? 
;VES - EXECUTE FUNCTION 
;N0 - FETCH COMMAND CODE 

;DOES COMMAND DEFAULT TO 
; SOURCE DEVICE? 
;¥ES - EXECUTE FUNCTION 
;N0 - USE OUTPUT DEVICES 

;FETCH DEVICE FLAG SETTINGS 
;SET FOR OBJECT DEVICE 



EXECUTE DEVICE CONTROL 



CR020 



CR025 



CR030 



EQU 

MVI 

MOV 

ORA 

JNZ 

MVI 

LXI 

SHLD 

EQU 

LXI 

MVI 



L,IPS6N 

A # M 

A 
CR025 
M,1 

H,1 

ICCNT 

H,ICDPT 
A-1 



; FETCH THE SIGN 
;VALUE SPECIFIED? 
;YES - EXECUTE FUNCTION 
;N0 - SET DEFAULT TO *1 



;INITIALIZE DEVICE FLAG 



EQU $ 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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3FFA 
3FFB 
3FFD 
3FFE 
4001 
A 004 
4007 

4008 
4008 
400B 
400C 
4000 
400E 
400F 



4012 
4012 
4015 
4016 
4019 
401 C 
401F 
4022 
4025 
4028 
402B 
402E 
4031 
4034 
4035 
4038 
403B 
403E 
403F 
4042 
4043 
4046 
4049 
404C 



404F 
404F 
4052 
4053 
4056 



77 

2ED8 

A6 

CA0840 

216041 

C0A741 

08 



214CFF 

7E 

07 

3F 

DO 

C3FA3F 



CD3B2E 

08 

21E23B 

22EBFF 

21C73C 

22EBFF 

21F43B 

22E7FF 

21E13B 

22E5FF 

C0012E 

GB3330 

08 

C05E3D 

22EFFF 

C04F4C 

EB 

C02E2E 

EB 

22E9FF 

CD4F40 

21493B 

C3C341 



CR040 



NOV N # A 

HVI L # ICDEV 

ANA n 

JZ CR040 

LXI H,CLTAB 

CALL STJKP 

RC 

EQU $ 

LXI H,IC0PT 

NOV A,K 

RLC 

CMC 

RNC 

JMP CR030 
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;STORE DEVICE FLA6 

^COMPARE TO SELECTED DEVICES 

^DEVICE SELECTED? 

;NG - TRY ANOTHER DEVICE 

;SET TABLE BASE ADDRESS 
;PERFGRM INDIRECT CALL 

^RETURN ON ERROR 
NO - TRY NEXT DEVICE 

;RECALL DEVICE POINTER 

;ALL DEVICES SCANNED? 

;YES - RETURN SUCCESS 
;N0 - DO NEXT 



* 
* 



************************ 

TPSTAT - DISPLAY CURRENT FILE AND INCHES 
LEFT FOR EACH TAPE 

ENTRY FROM IOCKEY (GREEN «CEV> 

EXIT TO MAIN CODE 

DESTROYS ALL REGISTERS 



TSTAT 



CD502B 

47 

3A66FF 

AO 



EQU 
CALL 
RC 
LXI 
SHLD 
LXI 
SHLD 
LXI 
SHLD 
LXI 
SHLD 
CALL 
CALL 
RC 

CALL 
SHLD 
CALL 
XCH6 
CALL 
XCHG 
SHLD 
CALL 
LXI 
JMP 
;********** 

; IF TAPE 
;********** 
TS100 EQU 
CALL 
MOV 
LDA 
ANA 



$ 

BYCHK 

H^NLTMS 

MGPT3 

H^CMAMS 

MGPT4 

H„NRTMS 

MGPT6 

H,EPMSG 

MGPT7 

SLLCT 

GIOBO 

GTPTR 
MGPT2 
TS100 

SLRCT 

MGPT5 
TS100 
H,FINMS 
IFAI1 

********* 

IS INSERT 
********* 

$ 

6CTBT 

B,A 

CSTAT 

B 



;WAIT UNTIL TAPES FREE 
;RETURN ON USER INTERRUPT 



;GET A BUFFER FOR COUNTS 
; RETURN ON USER INTERRUPT 
;GET POINTER TO THE BUFFER 

;6ET ASCII FOR LEFT COUNTS 
;SAVE BUFFER POINTER WHILE 
^SWAPPING UNITS 



;GET ASCII FOR RIGHT COUNT 
;6ET FIRST PART OF MESSAGE 
;MAKE SURE MESSAGE IS DISPLY 
****************************** 

EB # DISPLAY FILE AND INCHES * 
****************************** 

;6ET BIT FOR SELECTED UNIT 

;6ET CURRENT STATUS 
;TAPE INSERTED? 
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4057 
405A 
405D 
4060 



4063 
4063 
4066 
4069 
4060 
406C 
406 E 
406F 
4071 



4072 
4073 
4074 
4077 
4077 
407A 

407C 
407D 
4080 
4083 
4083 
4086 
4089 
4089 
408A 
408B 
408E 
408F 
4092 
4094 
4095 



4096 
4096 
4099 
409C 
409E 
40AO 
40A2 
40A5 
40A7 
40A9 
40AC 



C 26 340 
325EFF 
325FFF 
3260FF 



3A5EFF 

CD6F00 

3680 

23 

3620 

23 

36 8 A 

23 



E5 
97 
CDD62A 

2A5FFF 
3EC4 

BC 

D28340 
210000 

11FFFF 
01E3FF 

13 

09 

DA8940 

E1 

CD6C00 

3600 

23 

C9 



010100 

2164FF 

3601 

2E47 

36FF 

3AD8FF 

E606 

FE04 

BA1C00 

32D8FF 



JNZ 


TS120 


;YES - 


ST A 


FLNUW 


;N0 - CLEAR FILE NUMBER 


STA 


ASTAK 


;AND TACH COUNTER 


STA 


ASTAK+1 





********************************* 

CHANGE CURRENT FILE TO ASCII * 
********************************* 



TS120 



EQU 


$ 


LDA 


FLNUM 


CALL 


B2DE0 


MVI 


H,200Q 


INK 


H 


MVI 


M,4GQ 


INX 


H 


MVI 


M,212Q 


INX 


H 



;6ET CURRENT FILE NUMBER 
;CONVERT TO ASCII 
;WRITE * • 



************************************* 

CHANGE TACH TO ASCII INCHES LEFT * 
************************************* 

PUSH H ;SAVE BUFFER POINTER 

A ; INSURE THAT COUNTER IS NOT 

0M001 ; INVERTED 
TS130 EQU $ 

ASTAK ;H # L = TACH COUNT 
A,-SRTAK/256+3+2 
= BOT-LP DISTANCE, 2 = MARGIN FOR ERROR 



TS140 



TS160 



SUB 
CALL 
EQU 
LHLD 
MVI 
3 
CMP 
JNC 
LXI 
EQU 
LXI 
LXI 
EQU 
INX 
DAD 
JC 
POP 
CALL 
MVI 
INX 
RET 



H 

TS140 
H # 
$ 

»,-1 

B,-29 

S 

D 

B 

TS160 

H 

B2DEC 

M,0 

H 



;HAS COUNT OVERFLOWED? 

;N0 - 

;YES - DISPLAT "0" 

;COUNT FOR RECORDS 
;29 TACHS/INCK 

; INCREMENT COUNTER 
^SUBTRACT TACHS FOR ONE 
^CONTINUE IF MORE TACHS 
^RECALL LOC FOR ASCII 
;CONVERT COUNT TO ASCII 
;SIGNAL END OF MESSAGE 



REC 



* * 



IOR 



* 

m 
i 
* 
i 

IREAD 



********************* 
EAD - READ ONE RECORD TO DATACOM 



EQU 

LXI 

LXI 

MVI 

MVI 

MVI 

LDA 

ANI 

CPI 

JC 

STA 



B,SVREC 

H,IFLG2 

M # ETB2D 

L^XRLIM 

M,-1 

ICTYP 



;6ET FLAG TO BE SET 
;SET EXTERNAL READ FLAG 



;SET DEFAULT LIMIT TO ONE 
;RECORD 

;G£T COMMAND MODIFIER 
FLRED+BNXMT 

FLRED ;FILE OR BINARY READ? 
SLXFO ;RECORD - SET PENDING 



ICTYP 



FLAG 
FILE - TURN OFF RE-TRANSMIT 
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FILE 20 
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4 OAF 
40B1 
40B4 
40B7 
4 OB 9 
40B9 
40BB 
40BE 



40C1 
40C1 
40C4 
40C7 
40CA 
40CB 
40CE 
40D1 
40D1 
40D4 
40D? 



40DA 
40DA 
40DD 
40DE 
40EO 
40E1 
40E3 
40E4 
40E5 
40E8 
40E9 
4QEA 
40EB 
40EC 
40EF 
4QF2 
40F3 
40F4 



3600 
CD7500 
CAB940 
3E01 

F604 

CD982B 

C31C00 



010G08 

CD1C00 

3ADBFF 

B7 

C20140 

3A4EFF 

3248FF 
216A41 
C3A741 



CD333D 

D8 

3620 

2B 

36FF 

2B 

EB 

2AD5FF 

4D 

70 

12 

B4 

C2F740 

CD1741 

D8 

EB 

C31241 



IDQ1Q 



MVI «^0 

CALL 6M0DE 

JZ ' "*"*- 

MVI 

EQU 

ORI 

CALL 

J MP 



IDOtO 

A^RWOWT 

S 

FLRED 

SIOFS 

SLXFO 
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;SET XFER LIMIT FOR t FILE 
;PA6E MODE? 

;NO - D0N»T SET "RDWOWT" 
;YES - PERFORM FILE READ 

;WITHOUT WAIT 
;SET FILE READ FLA6 

;T0 "I0RD60" AFTER HANDSKK 



*********** 
IOSTAT - GET DEVICE 



************ 
STATUS 



RETURNS TO SYSTEM VIA "ESCEND* 



I STAT 



IS010 



EttU 


$ 




LXI 


B # SOVST 


i 


CALI 


SLXFO 


;fl 


LDA 


ICOEV 


r 


ORA 


A 


;DE 


JNZ 


IS010 


;VE 


LDA 


IPDEV 


i 


ECHO 


$ 




STA 


ISTAO 


i 


LXI 


H^SATTB 





J MP 


ST .IMP 


m 



SET DEVICE STATUS PENDING 

AG 

FETCH DEVICE CODE 

VICE SPECIFIED? 

S - GET ITS STATUS 

NO - DEFAULT TO SOURCE 

STORE DEVICE CODE 

SET TABLE BASE ADDRESS 

PERFORM INDIRECT JUMP 



*********************** 
IOWRIT - WRITE DATACOM ONTO DEVICE 



READS ONE RECORD FROM THE DATACOM AND 
STORES IT ON ALL DESTINATION DEVICES 



DESTROYS ALL REGISTERS, 



IWRIT 



EttU $ 

CALL GIOBO 

RC 

MVI M^DTCOM 

DCX H 

MVI M,-1 

DCX H 

XCH6 

LHLD ICCNT 

MOV C.L 



DATACOM 



A^L 

D 

H 

IW020 



MOV 
STAX 
ORA 
JNZ 
CALL D2BUF 
RC 

XCHG 

JMP IW030 
: ******************* 

BINARY TYPE LOAD 
******************* 



GET AN I/O BUFFER 
RETURN ON ERROR 
MARK FOR INPUT FROM 
H,L -> TYPE 
TYPE * DATA RECORD 
H # L -> LENGTH 
;D^E -> LENGTH 
GET PARAMETER 
C IS USED AS COUNTER 
ANY COUNT SPECIFIED? 
CSAVE COUNT IN BUFFER SIZE) 



;YES - DO BINARY LOAD 
;NO - LOAD ASCII RECORD 
; RETURN ON ERROR 
;D,E -> LENGTH 
;STORE THE RECORD 
************************** 

- LOAD 8-BIT CHARACTERS * 
************************** 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
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FILE 20 
FILE "20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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40F7 




IU020 


EQU 


$ 


40F7 


CD5E30 




CALL 


6TPTR : 


40FA 




IW023 


EQU 


S 


40FA 


E5 




POSH 


h ; 


40FB 


CD092A 




CALL 


CB0N1 i 


40FE 


D42E2B 




CNC 


RTSCN J 


4101 


E1 




POP 


h ; 


4102 


D8 




RC 


* 


4103 




IW025 


EQU 


% 


4103 


C01D78 




CALL 


Z6BIN ; 


4106 


DA2F3B 




JC 


DCERR ; 


4109 


C2FA40 




JNZ 


IW023 ; 


410C 


77 




MOV 


N,A 


410D 


23 




INX 


H 


410E 


OD 




OCR 


C ; 


410F 


C20341 




JNZ 


IW025 ; 






;********************* 






; STORE THE RECORD * 






; ********************* 


4112 




I WO 30 


EQU 


$ 


4112 


13 




INX 


o 


4113 


13 




INX 


D 


4114 


C38D41 




JMP 


PUTIO ; 
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4117 
4117 
4119 
411C 
411F 
4120 
4123 
4124 
4125 
4128 



GET POINTER TO 1ST BUF BYTE 

SAVE REGS KILLED BY MONITOR 

ANY CTU ERRORS? 

NO - RETURN KEY PRESSED? 

RESTORE REGISTERS 

RETURN ON ERROR 

GET A BINARY BYTE 

QUIT ON DATACOM ERROR 

CHK CTU & TRY AGAIN ON WAIT 

STORE BYTE 

INCREMENT BUFFER POINTER 

RECORD DONE? 

NO - GET NEXT CHAR 



WANT D,E -> STATUS 

OUTPUT TO ALL "OUT" DEVICES 



;************************ 



# 
i 

t 
i 

m 
i 
i 
I 
t 
r 
i 
* 
i 

i 
r 
i 

» 



DC2BUF - READ ASCII RECORD FROM DATACOM TO 
I/O BUFFER 

THIS ROUTINE LOADS AN I/O BUFFER WITH 
NORMAL ASCII CHARACTERS FROM THE DATACOM 
C6ETDO. IT RETURNS WHEN A LF IS RECEIVED, 
OR 256 BYTES HAVE BEEN RECEIVED, OR WHEN A 
DATACOM ERROR IS DETECTED. 

ENTRY: BUFFER STATUS SET 

BUFFER TYPE = NORMAL CDATA) RECORD 
0,E -> BUFFER LENGTH ISET TO 0> 
I0FLG2 RECINI = 1 -> 1ST CHAR FOR 
BUFFER IS IN "CHAR" (RECORD- 
MODE INITIALIZATION). 

EXIT : I0FLG2 RECINI = 
EXIT I NC => NO ERROR 

H,L -> BUFFER LENGTH 

A,D,E DESTROYED 
C => ERROR, OR USER INTERRUPT 

A,D,E,H,L DESTROYED 



D2BUF 



3EEF 
CD9E2B 

3A88FF 

F5 

CD5E3D 

EB 

F1 

C23A41 



DC010 



EQU 

MVI 

CALL CIOFS 

LDA CHAR 

PUSH PSW 

CALL 6TPTR 

XCHG 

POP PSW 

JNZ DC030 

EQU $ 



A,-1-RCINI ;TEST AND CLEAR RECINI 
; FIRST CHAR IN "CHAR"? 
;GET CHAR IF SO 
;SAVE FLAG AND CHAR 
;GET POINTER TO BUFFER 
;D,E -> BUF; H,L -> LENGTH 
;RECALL FLAG AND CHAR 
;IF FIRST CHAR IN A, STORE 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
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4128 


E5 






POSH 


H 


4129 


CDG92A 






CALL 


CM0N1 


412C 


042428 






CNC 


RTSCO 


41 2 F 


E1 






POP 


H 


4130 


D8 






RC 




4131 




DC020 


EQU 


$ 


4131 


CD1778 






CALL 


ZETDC 


4134 


DA2F3D 






JC 


DCERR 


4137 


C22841 






JNZ 


DC010 


413A 




OC030 


EQU 


$ 


413A 


12 






STAX 


D 


413B 


13 






INX 


D 


413C 


34 






INR 


M 


413D 


C8 






RZ 




413E 


FEOA 






CPI 


LF 


4140 


C8 






RZ 




4141 


C33141 






J«P 


DC020 
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;SAVE REGS KILLED BY MONITOR 
; CHECK FOR CTU ERRORS 
;IF OK, MONITOR KYBD 

;RET ON ERROR OR USER INTRUP 

;CHECK DATACOM FOR CHAR 
;PROCESS DATACOM ERRORS 
;WAIT - MON CTU & KYBD, RETR 
;CHAR RECEIVEO - STORE IT 

;INCREMENT BUF POINTER 

; INCREMENT LENGTH COUNTER 

;RETORN IF LENGTH * 256 

;RETURN IF LF 

;GET NEXT CHARACTER 



;*#******************************* 







• 


ALTERNATE I/O DEVICE DRIVERS * 






• ********************************* 


4144 




B2ALT 


EQU 


$ 


;BUFFER TO DEVICE 


4144 




AT2BF 


EftU 


% 




4144 




CLALT 


EQU 


% 




4144 




STALT 


EQU 


$ 




4144 


2149FF 






LXI 


H,ISTA1 


;CODE NOT THERE - 


4147 


97 






SUB 


A 




4148 


77 






MOV 


H,A 




4149 


23 






INX 


H 




414A 


77 






MOV 


M,A 




414B 


23 






INX 


H 




414C 


77 






MOV 


M,A 




414D 


C9 


# 




RET 












DEVICE DRIVERS ENTRY TABLES 






r 


BUFFER TO DEVICE 




414C 




B20TB 


EQU 


$-2 




414E 


6430 






DW 


B2LCT 


;LEFT CARTRIDGE 


4150 


6930 






DW 


B2RCT 


;RIGHT CARTRIDGE 


4152 


D743 






DW 


B2DSP 


;DISPLAT 


4154 


264 6 






DW 


B2PRT 


;PRINTER 


4156 


4441 






DW 


B2ALT 


;ALTERNATE I/O 






i 

» 


DEVICE TO BUFFER 




4156 




DBFTB 


EQU 


S-2 




4158 


7F2E 






DM 


LT2BF 


;LEFT CARTRIDGE 


415A 


842E 






DW 


RT2BF 


;RIGHT CARTRIDGE 


415C 


C544 






DW 


DP2BF 


;DISPLAY 


415E 


4547 






DW 


PR 700 


;PRINTER - INVALID 


4160 


4441 






DW 


AT2BF 


;ALTERNATE I/O 








DEVICE CONTROL 




4160 




CLTAB 


EQU 


S-2 




4162 


4034 






DW 


CLLCT 


;LEFT CARTRIDGE 


4164 


6234 






DW 


CLRCT 


;RI6HT CARTRIDGE 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



8080 MACRO ASSEMBLER, VER 2.4 



4166 
4168 
416A 



416A 
416C 
416E 
4170 
4172 
4174 



4176 



4177 
4177 
41 7A 
417A 
41 7B 
417E 
4181 
4183 
4186 
4187 
418A 



7641 
AB47 
4441 



DW NFNCT 
DW CLPRT 
DW CLALT 

DEVICE STATUS 



SATTB 



D533 
DC33 
0A46 
5147 
4441 



C9 



EQU $-2 
DW STLCT 



DW 
DW 
DW 
DW 



NFNCT: RET 

i 
r 



STRCT 
ISTX1 
STPRT 
ST ALT 
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/DISPLAY 
/PRINTER 

/ALTERNATE I/O 



/LEFT CARTRIDGE 

/RIGHT CARTRIDGE 

/DISPLAY - CLEAR STATUS FLA6 

/PRINTER 

/ALTERNATE I/O 



************************ 
; GETIO - GET NEXT RECORD FROM SOURCE DEVICE 

ENTRY 6ETI01 RE«»S A = INPUT DEVICE 

EXIT 



C => ERROR 

NC => NO ERROR 

D,E -> BUFFER STATUS 
A,B,C,II*L DESTROYED 



3A4EFF 

47 

21AC3C 

3A6EFF 

E680 

C2592E 

78 

215641 

C31850 



GETIO EQU $ 

LDA IPDEV 

6TI01 E«U $ 

NOV B,A 
LXI H,CNNSG 
LDA DFLSS 
ANI XF2DS 
JNZ CUERR 
MOV A # B 
LXI H r DBFTB 
J«P BYGET 



•DEVICE INPUT FLAG => INDEX 

/SAVE DEVICE 

; (PREPARE TO REPORT ANY ER 
/WRITING TO DISPLAY FROM BUF 

/YES - REPORT CONFLICTING 1/ 
/RECALL DEVICE 
/SET TABLE BASE ADDRESS 
/PERFORM INDIRECT JUMP 



/A*********************** 
PUTIO - PUT RECORD ON ALL "TO* DEVICES 



r 
/ 
r 

i 

i 

r 
# 
r 
t 

m 

r 
i 
i 
i 



ENTRY: D # E -> BUFFER STATUS 

BUFFER STATUS, TYPE, LENGTH FILLED 

ENTRY PUTI01 RE«*S A = OUTPUT DEVICE(S> 

EXIT : A # B # C # H,L DESTROYED 
NC => NO ERRORS 

D,E -> SANE BUFFER STATUS 
C *> ERROR 

D # E DESTROYED 
IOCERR=F «> FAILURE 

MSGPTX -> ERROR MESSAGE 
IOCERR=U => USER INTRRUPT 
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4180 




PUTIO 


EQU 


$ 


418D 


3A40FF 




IDA 


OTDEV 


4190 




PTI01 


EQU 


$ 


4190 


12 




STAX 


D 


4191 


4F 




MOV 


C,A 


4192 


Q601 




MVI 


B,1 


4194 




P001G 


EQU 


$ 


4194 


214C41 




LXI 


H,B2DTB 


4197 


79 




MOV 


A,C 


4198 


AO 




ANA 


B 


4199 


C5 




PUSH 


B 


419A 


C4A741 




CNZ 


SUMP 


4190 


d 




POP 


B 


419E 


08 




RC 




419F 


78 




MOV 


A,B 


41A0 


07 




RLC 




41A1 


3F 




CMC 




41A2 


DO 




RNC 




41A3 


47 




MOV 


B,A 


41A4 


C39441 




J MP 


P0 010 
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41A7 
41A7 
41A8 
41AA 



41A0 
41A0 
41AE 
41AF 
41B1 
41 B2 
41B3 
41B4 
41B5 
41B6 
41B8 



;NORMAL OUTPUT OEVICE(S) 

;MARK BUFFER FOR OUTPUT 

;SAVE OEVICECS) 

;START WITH UNIT 1 = LFTCTU 

;POINTER TO TRANSFER TABLE 
;THIS DEVICE SELECTED? 

;<SAVE CURRENT DEVICE FLAG) 
;YES - PERFORM OUTPUT 
;RECALL CURRENT DEVICE 
;RETURN ON I/O ERROR 

;SELECT NEXT DEVICE 

;(6ET CARRY SET RIGHT) 
^RETURN IF FINISHED 
;SAVE DEVICE FLAG 
;G0 DO NEXT DEVICE 



;********#**#*********** 



SETJMP - SET UP INDEXED INDIRECT JUMP 
ENTRY: 



A = JUMP INDEX (BIT POSITION) 
E = LSB OF TABLE BASE ADDRESS 



EXITS TO INDEXED ADDRESS 

ON ENTRY TO INDEXED ROUTINE, H = BASEH 
ALL OTHER REGISTERS UNDEFINED 



B7 

0600 

C4B941 



STJMP EQU $ 

ORA A 

MVI B,0 

CNZ B2NUM 



;JUMP TO BASE ? 

;(SET BASE VALUE) 
;N0 - CONVERT BIT TO NUMBER 



r 
i 

* 

r 
* 

r 




IDJMP 



INDJMP - INDEXED INDIRECT JUMP 
ENTRY; 



87 

4F 

0600 

09 

7E 

23 

66 

6F 

0601 

E9 



EXIT 



EQU $ 

ADD A 

MOV 

MVI 

DAD 

MOV 

INX 

MOV 

MOV 

MVI 

PCHL 



A = INDEX 

H,L - TABLE BASE ADDRESS 

B = 1 

A,C DESTROYED 



C„A 

B # 

B 

A,M 

H 

H,M 

L,A 

B,1 



; DOUBLE INDEX 

;B,C * INDEX 

;ADD INDEX TO BASE 

;6ET ADDRESS FROM TABLE 

;GET HIGH ADDRESS 
;L <- LOU ADDRESS 
;PUT INDICATOR IN B 
;60 THERE 
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i 


f 




r 



************************ 

BT2NUH - CONVERT BIT NUMBER TO DIGIT 

ENTRY: A » BIT TO BE LOCATED 
B = BASE VALUE 

EXIT : A,B = BASE VALUE ♦ BIT NUMBER 



41B9 
4tB9 
41BA 
41 BB 
41BE 
41BF 



B2NUM 



04 

OF 

D2B941 

78 

C9 



EQU 
INR 
RRC 
JNC 
MOV 
RET 



$ 
B 

B2NUM 
A,B 



^INCREMENT COUNT 

;SHIFT TO NEXT BIT 

; CONTINUE COUNT IF NO BIT 



41 CO 
41C0 
41C3 
41C3 

41C6 
41C6 
41C8 
41 CB 
41CC 



*********************** 
IOFAIL - ERROR IN ESCAPE SEQUENCE 

EXITS TO "ESCEND" THRU "IOEXIT" 



21943B 
22F1FF 



3E46 
324FFF 
37 
C9 



FA 10 EQU $ 

LXI H,IO«SG 
FA 11 EQU $ 

SHLD MGPT1 

FAIL EQU $ 

MVI A,FX 
STA ICERR 
STC 
RET 



;SET IN=OUT MESSAGE 



; RETURN C -> ERROR 



;************************ 



# 

r 

t 
r 



i 

* 


« 
r 





m 



r 

r 







IORDGO - TRANSFER RECORD TO DATACOM 

ENTRY: HANDSHAKE COMPLETED 

IOCTYP = TRANSMISSION TYPE 

- ASCII, NEXT BLOCK 

1 = ASCIIs LAST BLOCK 

2 = BINARY, NEXT BLOCK 

3 * BINARY, LAST BLOCK 
LSTRED -> START OF LAST BLOCK 

(0 => NO LAST BLOCK) 
NXTRED -> START OF NEXT BLOCK 

€LSB=0 => GET NEU BUFFER FULL> 
NOTE: ASCII XFR IS 1 FIELD CFORMAT 
RECORD) OR 1 NORMAL RECORD. 
BINARY XFR IS ALWAYS 1 RECORD 
BLOCKS STORED IN I/O BUFFERS. 

EXIT : LSTRED, NXTRED UPDATED IF NEXT BLK 

WAS REQUESTED 
ASCII XFR - BLOCK SENT 
BINARY XFR - BYTE COUNT SENT, 

MFLGS2 SBINRY = 1 
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41CD 




IRDGO 


EQU 


$ 




41CD 


01FEFF 




LXI 


B # -1-SVREC ;CLEAR RECORD PENDING FLA 


41D0 


CD1900 




CALL 


CBLXF 




41D3 


3AD8FF 




LDA 


ICTYP 


;6ET TRANSMISSION TYPE 


41D6 


E601 




AMI 


RXMIT 


; RETRANSMIT LAST BLOCK? 


41 £>8 


CAE641 




JZ 


IR020 


;N0 - 6ET NEXT READ POINTER 


41DB 


2A25FF 




LHLD 


LTREO 


;YES - GET LAST READ POINTER 


41DE 


7C 




MOV 


A,H 


;IS POINTER = Q? 


41DF 


85 




ORA 


L 


;(YES »> NO LAST BLOCK J 


41E0 


CA5843 




J 2 


SDEOF 


;YES - OUTPUT "FILE MARK" 


41E3 


C30C42 




JMP 


IR10Q 


;N0 - OUTPUT LAST BLOCK 






; ******************************* 






; SET 


UF* TO OUTPUT NEW BLOCK * 






* ************************ ******* 


41E6 




IR020 


EQU 


$ 




41E6 


2A27FF 




LHLD 


NT REP 


;GET NEXT POINTER 


41E9 


B5 




ORA 


L 


;LSB = 0? 


41EA 


C2Q942 


# 


JNZ 


IR030 


;N0 - OUTPUT NEXT FIELD OF 
CURRENT RECORD 


41ED 


CDB344 




CALL 


ITDSO 


;INPUT=DI SPLAY => INITIALIZE 


41FG 


3A26FF 




LDA 


LTRED+1 


;6ET POINTER TO STATUS OF 


41F3 


FEFC 




CPI 


IBUF1/256 


;LAST BUFFER OUTPUT 


41F5 


113AFF 




LXI 


D,B1STT 




41F8 


CAFD41 




JZ 


IR025 




41 FB 


1E37 




MVI 


£^25^*256/256 


41FD 




IR025 


EQU 


$ 




41 FD 


CD7741 


• 
# 


CALL 


GETIO 


;GET A NEW RECORD FROM THE 
INPUT DEVICE 


4200 


DA5843 




JC 


SDEOF 


; ERROR - SEND "FILE MARK* 


4203 


3E20 




MVI 


A,DTC0M 


;MARK FOR OUTPUT TO DATACOM 


4205 


12 




STAX 


D 




4206 


CD5E3D 




CALL 


6TPTR 


;GET POINTER TO FIRST BYTE 


4 209 




IR030 


EQU 


$ 




4209 


2225FF 




SHLO 


LTRED 


;STORE POINTER FOR REPEAT 


420C 




IR100 


EQU 


$ 


;GET TYPE POINTER FOR RECORD 


420C 


7C 




MOV 


A^H 




420D 


FEFC 




CPI 


IB UF 1/256 




420F 


1139FF 




LXI 


O^BITYP 




4212 


CA1742 




JZ 


IR110 




4215 


1E36 




MVI 


E„B2TYP*256/256 


4217 




IR110 


EQU 


$ 




4217 


1A 




LOAX 


D 


;TYPE OF RECORD? 


4218 


3C 




INR 


A 


;{-1 => DATA> 


4219 


C25 843 




JNZ 


SDEOF 


;TERMINATOR - SEND FILE MARK 


421C 


3AD8FF 




LDA 


ICTYP 


;6ET TYPE OF TRANSMIT 


421F 


E602 




AH I 


BNXMT 


;BINARY TRANSMIT? 


4221 


C2DF42 




JNZ 


SBYCT 


;YES - SEND BYTE COUNT 



******************************** 

SEND ASCII BLOCK TO DATACOM * 
******************************** 



4224 


45 


4225 


13 


4226 


D5 


4227 


1B 


4228 


216EFF 


422B 


7E 


422C 


F680 


422E 


77 



MOV 

INX 

PUSH 

DCX 

LXI 

MOV 

ORI 

MOV 



B,t 

D 

D 

D 

H # DFLGS 

A,M 

XF2DS 

M-A 



;B <- # OF BYTES 
;SAVE POINTER TO 



ALREADY SEN 
BUF STATUS 



;D,E -> TYPE 
;SET BUFFER TO 



DISPLAY BIT 
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422F 


3A65FF 


LDA 


IFL6S 


4232 


E602 


AMI 


UREAD 


4234 


CA3F42 


41 


IR210 


4237 


3AFBFF 


LDA 


KJMPR 


423A 


E61Q 


ANI 


LFPOS 



423€ CCD347 



CZ 



SAULF 



4248 D2S142 



-A*********************************************** 
; DETERMINE WHETHER TO SEND INITIAL LINE FEED * 
;4Hk***** ***************************** ************ 

/SEND LINE FEED FIRST IF... 
;USER READ 

;(IOFLGS USREAD = 1) 
;AND 
;STRAP *E m INSERTED 

CKBJHPR LFPOS = 0) 
;AND AUTO LF DEPRESSED 
; (MDFLG2 AUTOLF = 1) 

; ******************************************** 

; OUTPUT A BLOCK TO DATACOM (AND DISPLAY) * 

;******************************************** 



;C * -t => PASS CONTROL CODE 
;6ET POINTER TO ROUTINE 
;I => STRIP OFF TERM CRLF 
/OUTPUT THE BUFFER, EXPANDIN 

CONTROL CODES 
/CONTINUE ON NO ERROR 



423F 




IR210 


EQU 


S 


423F 


OEFF 




MVI 


C„-1 


4241 


21C542 




LXI 


H,IR500 


4244 


97 




SUB 


A 


4245 


CD4944 




CALL 


EPBF1 



JNC IR230 



; *********************** 







; ERROR - i 


KBORT REA 






; ******************* 


4 24B 




IR220 


EQU 


S 


424B 


D1 




POP 


D 


424C 


97 




SUB 


A 


424D 


12 




STAX 


D 


424E 


C38843 




JMP 


RABRT 


4251 




IR230 


EQU 


$ 


4251 


B7 




ORA 


A 


4252 


C26342 




JNZ 


IR270 


4255 


E3 




XTHL 




4256 


7E 




MOV 


A,M 


4257 


E6DF 




ANI 


-1-DTCOM 


4259 


F64G 




OR I 


PTPOK 


425B 


77 




MOV 


H,A 


425C 


E3 




XTHL 




425D 


CD8844 




CALL 


EPBF3 


4260 


C36C42 




J MP 


IR285 



;D # E -> BUF STATUS 
/FREE BUFFER 

;ABORT READ 

/INTERPRET EXPBUF RETURN 
/TVPE OF TERMINATION? 
/FORMAT FIELD SEPARATOR • 
/NEXT-TO-LAST CHAR 
/MARK BUF OK FOR PTTPLN 



/RESTORE H,L -> ROUTINE 
/OUTPUT THE LAST CHARACTER 
;G0 TO CLEAN UP ROUTINE 

J***************************************** 

; HANDLE FORMAT MODE SEPARATORS (304B ) * 
/♦♦♦♦♦♦A********************************** 



4263 




4263 


13 


4264 


05 


4265 


7B 


4266 


FE05 


4268 


3D 


4269 


DC8544 


426C 




426C 


DA4B42 


426F 


CA5142 


4272 


EB 


4273 


D1 


4274 


7D 


4275 


87 


4 276 


C27A42 


4279 


12 



IR270 



IR285 



EQU 


$ 


INX 


D 


DCR 


B 


MOV 


A,E 


CPI 


5 


DCR 


A 


CC 


EPBF2 


EQU 


$ 


JC 


IR220 


JZ 


IR230 


XCH6 




POP 


D 


MOV 


A,L 


ORA 


A 


4HI 


IR300 


STAX 


D 



/SKIP FORMAT COUNT 

;IS THIS PART OF HEADER? 
/(FIRST FOUR BYTES) 
/(INSURE NC, NZ IF NOT) 

/YES - CONTINUE 0UTPUTTIN6 

/ABORT ON ERROR 

/CONTINUE ON BUF NOT EMPTY 

;END OF BLOCK 

; RECALL TYPE POINTER 

/BUFFER EXHAUSTED? 

;N0 - SEND TERMINATOR 
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r 



















* 
» 






i 











































427A 




I 


427A 


2227FF 




4270 


3A65FF 




4280 


E602 




4282 


CA9642 




4285 


3AFBFF 




4288 


2F 




4289 


E610 




428B 


3E0D 




428D 


C29F42 




4290 


CDCE47 




4293 


C3A242 


* 


4296 






1 


4296 


CDCE47 




4299 


C07500 




429C 


3A0478 




429F 




I 


429F 


C4BA42 




42A2 




I 


42A2 


CDC643 




42A5 


2E65 




42A7 


7E 




42A8 


E601 




42AA 


C2CD41 




42A0 


CD263D 




42B0 


010100 




4 2B3 


7E 




42B4 


E606 




42B6 


C21C00 




42B9 


C9 
















************************************************* 
TERMINATE THE READ BY SENDING THE FOLLOWING: * 

* 

CR * 

CR(LF> * 

CR(LF)RS * 
CRCLF) * 

* 

DUPLEX, NON-FORMAT MODE, * 

SEND CRCLF) TO DISPLAY * 

************************************************* 

R300 EQU S 

SHLD NTRED ;SAVE POINTER 
IFLGS ;USER READ? 



USER READ, STRAP E IN: 
USER READ, STRAP E OUT: 
REMOTE READ, BLOCK, PACE: 
REMOTE READ, OTHER: 



IF USER READ, HALF 



FOR NEXT READ 



LDA 

AN1 

42 

LDA 

CMA 

ANI 

MVI 

JNZ 

CALL 

•IMP 



UREAD 
IR350 
KJMPR 



LFPOS 
A,CR 
IR360 
SCRLF 
IR380 
************************ 

TERMINATE REMOTE READ * 
************************ 
R350 



;N0 - TERMINATE REMOTE READ 
;STRAP *E 9 IN? 

; (COMPLEMENT FLAGS) 
;LINE FEED AT START OF REC? 

;<SET TO OUTPUT RETURN) 
;YES - OUTPUT RETURN ONLY 
;N0 - OUTPUT CR(LF> 
;TERMINATE OUTPUT BLOCK 



R360 



R380 



EQU 


$ 


CALL 


SCRLF 


CALL 


GMQDE 


LDA 


BKTRN 


EQU 


$ 


CNZ 


IR400 


EQU 


s 


CALL 


CXB2D 


MVI 


L,IFLGS 


MOV 


A,M 


ANI 


RWOWT 


JNZ 


IRDG© 


CALL 


EDATA 


LXI 


B,SVREC 


MOV 


A,M 


ANI 


UREAD+F 


JNZ 


SLXFO 


RET 





;SEND CRCLF) 
;PAGE MODE? 

;<SET TO OUTPUT 



TERW CHAR) 



;YES - OUTPUT TERMINATOR 
;CLEAR BUFFER TO DISPLAY BIT 



;READ WITHOUT 
;YES - START 



WAIT? 
ANOTHER READ 
;N0 - SI6NAL END OF DATA BLO 
;SET TO ENABLE ANOTHER READ 
;6ET IOFLGS 
D ;USER/FILE READ? 
;YES - ENABLE ANOTHER READ 
;RETURN 



************************ 

GENERAL OUTPUT TO DATACOM ROUTINE 

ECHOS TO DISPLAY IF USER READ, HALF DUPLEX 

ENTRY I0R400, FOR READ TERMINATORS, 
SUPRESSES ECHO IF IN FORMAT MODE 










ENTRY: A * CHAR 
EXIT : 



A,H,L DESTROYED 
NC => NO ERROR 
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42BA 




42BA 


6F 


42BB 


CDC847 


42BE 


7D 


42BF 


CAC842 


42C2 


C34G00 


42C5 




42C5 


FEOA 


42C7 


C8 


42C8 




42C8 


C5 


42C9 


D5 


42CA 


4F 


42CB 


CD4000 


42CE 


DADC42 


42D1 


3A64FF 


42D4 


E601 


42D6 


CCCE43 


42D9 


D45800 


42DC 




420C 


D1 


42DD 


CI 


42DE 


C9 



420F 
42DF 
42E0 
42E3 
42ES 
42E8 
42E9 
42EA 



42 EB 
42EC 
42EE 



97 

3227FF 

3E30 

CD4000 

1B 

1A 

95 



47 

D601 

3E30 



IR400 



IR500 



IR550 



IR570 



# 

r 
i 
i 
m 
m 
» 
i 
i 

m 

m 
* 
* 



t 

! 

# 
i 



SBYCT 



C => ERROR OCCURRED 



EQU 


$ 


ROV 


L,A 


CALL 


CKFNT 


MOV 


A,L 


it 


IR550 


•IMP 


XUTD3 


EQU 


$ 


CPI 


LF 


RZ 




EQU 


S 


PUSH 


B 


PUSH 


D 


MQV 


C,A 


CALL 


XUTD3 


JC 


IR570 


LOA 


IFL62 


AN I 


ETB2D 


C2 


XHINT 


CNC 


GTDCM 


EQU 


$ 


POP 


D 


POP 


B 


RET 





;SAVE A-RE6ISTER 

; FORMAT MODE ENABLED? 

; (RECALL A-REGISTER> 
;N0 - DON»T SUPPRESS ECHO 
;YES - OUTPUT TERMINATOR ONL 

;STRIP OUT LIKE FEEDS 



;CHINT WANTS BYTE IN C 
; OUTPUT TO DATACOM 
;QUIT ON ERROR 
;USER READ, HALF DUP? 

;YES - SEND TO DISPLAY 

;IF NO ERROR, MONIT DATACOM 



************************ 
SDBYCT - SEND BYTE COUNT TO DATACOM 

FIRST PART OF BINARY READ— ENTERED FROM 
IORDGO (HANDSHAKE COMPLETED). 
RETURNS TO WAIT LOOP, HAVING SET 
MFLGS2 SBINRY , WHICH TRIGGERS CALL TO 

ENTRY: 0,E -> RECORD TYPE (IORDGO HANDLES 
NON-DATA RECORDS) 
H,L -> FIRST BYTE OF RECORD 
NC (REft^D BY FIRST CALL TO XPUTDC) 

EXIT ; 4-BYTE COUNT AND TERMINATOR SENT 
MFLGS2 SBINRY - f 
NXTRED 0-4 *0 

(=> NEXT READ WILL GET NEW REC) 



EQU $ 

SUB A 
STA NT RED 
MVI A,600 
CALL XUTD3 
DCX D 
LDAX D 
SUB L 



MOV B,A 
SUI 1 

MVI A,60Q 



; CLEAR NXTRED 0-4 

;SEND LEADING '0* 
;OUTPUT 1ST BYTE 
;D,E -> BYTE COUNT 

; SUBTRACT BYTES ALREADY SENT 
(BY ASCII READ OF FORMAT 
RECORD) 
;SAVE BYTE COUNT 
;IS COUNT = (=> 256)? 
;IF NO (NO - 2ND BYTE = •Q" 
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42F0 


CE0O 


ACI 





42F2 


CD4GQG 


CALL 


XUTD3 


42F5 


78 


MOV 


A,B 


42F6 


E6F0 


ANI 


36 OQ 


42F8 


OF 


RRC 




42F9 


OF 


RRC 




42FA 


OF 


RRC 




42FB 


OF 


RRC 




42FC 


F630 


ORI 


600 


42FE 


CD4000 


CALL 


XUTB3 


4301 


78 


MOV 


A,B 


4302 


E60F 


ANI 


17Q 


4304 


F630 


ORI 


600 


4306 


CD4000 


CALL 


XUTD3 


4309 


D43D00 


CNC 


STRM1 


430C 


DA8843 


JC 


RABRT 


430F 


3A65FF 


LDA 


IFLGS 


4312 


E601 


ANI 


RWOUT 


4314 


C22043 


JNZ 


BRY60 


4317 


CD263D 


CALL 


EDATA 


431A 


010200 


LXI 


B # SINRY 


431 D 


C31C00 

* 


JMP 


SLXFO 




r 
i 


* * ** * 


* * * * 
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4337 
433A 



4330 
433D 
433E 
4341 
4344 
4345 
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4348 
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;IF YES fC> - 2ND BYTE - *1 
;OUTPUT 2ND BYTE 
;GET LENGTH 
^EXTRACT HIGH 4 BITS 
;RI6HT JUSTIFY 



;«AKE IT AN ASCII CHAR 

; OUTPUT 3RD BYTE 

;GET LENGTH 

; EXTRACT LOW 4 BITS 

;MAKE IT AN ASCII CHAR 

;OUTPUT 4TH BYTE 

;OUTPUT TERMINATOR 

;ABORT READ IF OUTPUT FAILED 

;GET I/O FLAGS 

;READ WITHOUT WAIT ENABLED? 

;YES - SEND BINARY NOW 

;N0 - SIGNAL END OF DATA BLO 

;SET BINARY RECORD PENDING 



BNRYGO - SEND BINARY RECORD 

ENTRY: BYTE COUNT SENT, 2ND HANDSHAKE DONE 
LSTRED -> 1ST BYTE OF RECORD 

EXIT : RECORD SENT 

BUFFER RELEASED 



BRYGO 



2A25FF 

7C 

FEFC 

1138FF 

CA2E43 

1E35 

CD2078 
CD3D43 
0A8543 
CD2378 
C3A242 



BR005 



EQU 

LHLD 

MOV 

CPI 

LXI 

JZ 

MVI 

EQU 

CALL 

CALL 

JC 

CALL 

JMP 



$ 

LTRED 

A,H 

IBUF1/256 

D,B1LEN 

BR005 



;GET POINTER TO FIRST BYTE 
;GET POINTER TO LENGTH 

;DATA IN BUFFER 1? 

; (SET FOR BUFFER 1 LENGTH) 
;YES - OUTPUT THE BUFFER 



E,B2LEN*256/256 

$ 

ZTBIN 'SIGNAL START OF BINARY OUTP 

BR010 ;OUTPUT THE BINARY RECORD 

BABRT ; ABORT BINARY IF FAILURE 

ZDBIN ;END BINARY OUTPUT MODE 

IR380 ;60 TO READ EXIT ROUTINE 



E5 

01 F COO 

CD19GQ 

E1 

1A 

95 

D8 

47 



; ****************************** 

; BNR010 - OUTPUT BINARY DATA * 
******************************* 

BR010 EOU $ 

PUSH H ;SAVE FIRST BYTE POINTER 

LXI B,377Q-SINRY-SVREC 

CALL CBLXF ;CLEAR ALL PENDING XFRS 

POP H ;RECALL FIRST BYTE POINTER 

LDAX D ;GET RECORD LENGTH 

SUB L ;SUBTRACT BYTES ALREADY SENT 

RC ;C => BUFFER OVERWRITTEN 

MOV B,A ;SAVE # OF BYTES LEFT 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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4349 
4349 
434A 
434D 
434E 
434F 
4350 
4353 
4354 
4355 
4356 
4357 



4358 
4358 
435B 
435E 
435F 
4361 
4364 
4367 
436A 
436D 
4360 
4370 
4370 
4371 
4374 
4377 
4379 
437C 
437E 
4381 
4382 



BR020 



7E 

CD400G 

D8 

23 

05 

C24943 

13 

13 

97 

12 

C9 



* 

i 



i 

i 

# 
i 

r 
i 
2 
i 
r 



SDEOF 



C0 4B3D 

3A65FF 

2F 

E602 

CA6B43 

3AQ478 

CD4GQQ 

CD7500 

CCCE47 

97 

3227FF 

CD263D 

3EFA 

CD9E2B 

3EFD 

CD9E2B 

C8 

C3E936 



SE10O 
SEOF1 



# 

i 
i 
i 

m 
t 

i 



* * 



EQU 


$ 


wov 


A,M 


CALL 


XUTD3 


RC 




INX 


H 


OCR 


B 


JNZ 


BR020 


INX 


D 


XKX 


D 


SUB 


A 


ST AX 


D 


RET 





;6ET THE DATA BYTE 

;0UTP0T THE BINARY BYTE 

; RETURN ON DATA CONM ERROR 

; INCREMENT TO NEXT BYTE 

;ALL BYTES DONE? 

;NQ - CONTINUE TRANSMITTING 

;YES - RELEASE THE BUFFER 



;CLEAR BUFFER BUSY FLAG 
;RETURN 



************************ 

SDEOF - SEND SPECIAL RECORD AS "READ" 
RESPONSE 

SENT FOR END OF FILE, END OF DATA, I/O 
ERROR, REPEAT REQUEST WITH NO 
PREVIOUS READ. 

CHARACTERS SENT: 

USER READ CRILF) 

<IF HALF DUPLEX, BISP GETS CRCLF>> 
REMOTE READ, PAGE, BLOCK RS 
REMOTE READ, OTHER RS CRCLF) 

RELEASES BOTH I/O BUFFERS. 



EQU 

CALL 

LDA 

CMA 

AN I 

41 

LDA 

CALL 

CALL 

EQU 

CZ 

EQU 

SUB 

STA 

CALL 

MVI 

CALL 

MVI 

CALL 

RZ 

J MP 



S 

FEBFS 

IFLGS 

UREAD 

SE100 

BKTRM 

XUTD3 

GMODE 

S 

SCRLF 

$ 

A 

NTRED 

EDATA 

A,-1-RW0W 

CIOFS 

A, -1 -UREA 

CIOFS 

UREXT 



;RELEASE I/O BUFFERS 

;GET I/O FLAGS 

; COMPLEMENT THE FLAGS 

;USER INITIATED READ? 

;YES - SEND CR(LF) 

;N0 - SEND BLOCK TERMINATOR 

; CHARACTER 
;BLOCK, PA6E? 

;N0 - SEND CRCLF) 
; ENTRY FOR RDABRT 

;NEXT READ WILL GET NEW REC 
;SIGNAL END OF DATA BLOCK 

T-FLRED 
;CLEAR READ FLAGS 

D 
; CLEAR USER READ FLAG 
;RETURN IF REMOTE READ 
;REPORT ANY ERRORS 



* * * * ****************** 
RDABRT - ABORT USER READ OPERATION 
ENTRYr USER READ IN PROGRESS 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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4385 
4385 
4388 
4388 
4388 
438A 
438D 
4390 
4393 
4395 
4398 
439A 
439B 
439B 
439E 
43A1 
43A3 
43A6 
43A7 
43AA 
43AB 
43AB 
43AE 
43AF 
43B2 
43B3 
43B3 
43B4 
43B7 
43B8 
43BA 



43B0 
43BD 
43C0 
43C3 
43C6 
43C6 
43 C8 
43 CB 
43CC 
43CD 



CD2378 



3E55 
324FFF 
CD7043 
3A4EFF 

E603 
CABD43 
F620 
4F 

CD092A 

C29B43 

0600 

3A3AFF 

At 

CAAB43 

04 

3A37FF 
A1 

CAB343 
04 

79 

CDFD2D 

68 

2600 

CDE82C 



CD4B3D 
01FCFF 
CD1900 

3E7F 

216EFF 

A6 

77 

C9 



t 

r 

* 

* 

i 
* 

BABRT 

RABRT 
RABR1 



EXIT 



RA005 



RA010 



RA020 



EQU 

CALL 

EQU 

EQU 

MVI 

STA 

CALL 

LDA 

AMI 

JZ 

OR I 

MQV 

EQU 

CALL 

JNZ 

H VI 

LDA 

ANA 

JZ 

INR 

EQU 

LDA 

ANA 

JZ 

INR 

EQU 

MOV 

CALL 

MOV 

MVI 

CALL 



ERRORS = 1 PA6E 111 



(IOFLSS USREAD = 1> 

READ ABORTED, TAPE BACKSPACED ONE 
RECORD FOR EACH PENDING BUFFER 
(IF TAPE IS INPUT DEVICE) 

A,B,C # HA DESTROYED 



$ 

ZDBIN 

$ 

$ 

A„UX 

ICERR 

SE0F1 

IPDEV 

LTCTU+RTCTU 

RA030 ; 

DTCOM ; 

C,A 

$ 

CM0N1 

RA005 

B,0 

B1STT 

C 

RA010 

B 

$ 

B2STT 

C 

RA020 

B 

$ 

A„C 

SLACT 

L # B 

H,G 

BKSPW 



ABORT BINARY READ 

END BINARY OUTPUT MODE 

ABORT FOR NEW ESC SEQ 
:FLA6 USER INTERRUPT 

;SEND END-OF-FILE 
IS INPUT DEVICE A TAPE? 

NO - QUIT 

YES - SET UP MASK TO TST FO 
;BUFS WAITING TO BE OUTPU 



;WAIT UNTIL STOPPED 

;B WILL COUNT FULL BUFFERS 
;IS I0BUF1 FULL? 

;N0 - 

;YES - INCREMENT COUNT 

;IS I0BUF2 FULL? 

;N0 - 

;YES - INCREMENT COUNT 

;SELECT INPUT UNIT 

;RECALL NUMBER OF FULL 

;BUFFERS 
^BACKSPACE TO WRITE 



; ******************* 

; CLEAR READ FLAGS * 
- ******************* 

RA030 EQU S 

CALL FEBFS 

LXI B # -1-SVREC- 

CALL CBLXF 
CXB2D EQU $ 

MVI A # -1-XF2DS 

LXI K,DFL6S 

ANA M 

MOV M,A 

RET 



FREE BUFFERS 
SINRY ;CLEAR DEVICE 
; RECORD PENDING FLAGS 
CLEAR BUFFER TO DISPLAY BIT 



* 
» 

r 
r 

r 
* 

r 
i 



*********************** 

XCHINT - INTERPRET CHAR, AND CHECK FOR 
MEMORY LOCKUP 

ENTRY; C * CHAR 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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43CE 
43CE 
43D1 
43D4 
43D6 



43D7 
43D7 
43DA 
43DB 
43DD 
43DE 
43DF 
43 EO 
43E1 
43E2 
43E5 
43E7 
43EA 
43EB 
43EE 
43F1 
43F1 
43F2 
43F5 
43F6 
43F7 
43 F9 
43FB 
43FC 
43FD 
4400 



4403 
4403 
4404 
4405 
4407 
4408 
4409 
440C 



C01550 
3A6AFF 
C6FF 
C9 



216EFF 

7E 

F68G 

77 

D5 

IB 

1A 

B7 

F21944 

OEFF 

212444 

97 

CD4744 

DA1944 

B7 

C20344 

E3 

7E 

E6FB 

F640 

77 

E3 

CD8844 

C31044 



13 

05 

3E04 

BB 

E5 

DC3E44 

El 



XHINT 



i 

i 
i 
» 
r 
i 
i 
t 
i 
i 

B2DSP 



BD005 



i 
i 
r 

B 



EXIT : 



C => ERROR, MEMORY LOCKED 
NC => NO ERROR 



EQU 

CALL 

LDA 

ADI 

RET 



$ 

BY INT 
MKFLG 
37 7Q 



;MLKFLG <> *> LOCKUP 



************************ 

BF2DSP - DISPLAY CONTENTS OF I/O BUFFER 

ENTRY r D,E ~> STATUS 

EXIT : D,E -> STATUS 

STATUS BIT FOR DISPLAY CLEARED 
DESTROYS A,B,C,H,L 



;SET BUFFER TO DISPLAY BIT 



EQU 


$ 


LXI 


H,DFL6S 


MOV 


*# " 


ORI 


XF2DS 


MOV 


M,A 


PUSH 


D 


OCX 


D 


LDAX 


D 


ORA 


A 


SP 


BD530 


MVI 


C,-1 


LXI 


H # BD10Q 


SUB 


A 


CALL 


EPBFO 


JC 


BD030 


EQU 


$ 


ORA 


A 


JNZ 


BD010 


XTHL 




MOV 


A,M 


AN I 


-1-DSPLY 


ORI 


PTPOK 


MOV 


M,A 


XTHL 




CALL 


EPBF3 


JMP 


BDQ20 



;SAVE D,E FOR RETURN 
;D,E -> TYPE 

;WHAT TYPE OF RECORD? 

;EOF OR EVD - QUIT 

;C ■ -1 => SEND CONTROL CODE 

;PTR TO ROUTINE FOR EACH BYT 

;Z => STRIP OF TERM CRLF 

;START OUTPUTTING BUFFER 

; RETURN ON ERROR 

;TYPE OF RETURN? 

; FORMAT FIELD SEPARATOR - 

;NEXT-TO-LAST CHAR 

;SET BUF AVAIL FOR PTTPLN 



;OUTPUT LAST CHARACTER 
; OUTPUT LAST CHAR 



HANDLE FORRAT FIELD SEPARATORS 

;$KIP FIELD PARAMETER 



D010 EQU $ 

INX D 

DCR B 

MVI A, 4 

CMP E 

PUSH H 

CC BD300 

POP H 



;PART OF HEADER? 
;(1ST FOUR BYTES) 

;N0 - DISPLAY CR LF 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 



8080 MACRO ASSEMBLER, VER 2.4 



4400 
4410 
4410 
4413 



4416 
4419 
4419 
44TA 
4418 
441C 
441E 
441F 
4422 
4423 



4424 
4424 
4426 
4427 
4427 
4428 
4429 
442A 
4420 
442E 
442F 



4430 
4430 
4433 
4434 
4436 
4439 
443B 



443E 
443E 
4441 
4443 
4446 



CD8544 

DA1944 
CAF143 



CD3E44 

t>1 

F5 

1A 

E6BB 

12 

CO C 643 

F1 

C9 



CALL EPBF2 
B0020 EQU S 

JC BD030 
JZ B0005 



ERRORS = 1 PAGE 113 



;START NEXT FORMAT FIELO 

;RETURN ON ERROR 

;KANOLE ANV MORE FIELO SEP 



i 



DECIBE WHETHER TO 00 CR LF 

;DISPLAY CR LF 



CALL B0300 
BOO 30 EQU $ 

POP ;RECALL BUFFER STATUS PTR 

PUSH PSW ;SAVE ERROR (C> FLAG 

LBAX ;CLEAR OISPLAY BIT IN STATUS 

ANI -1-DSPLY-PTPOK 

STAX 

CALL CXB20 ;CLEAR BUFFER TO OISPLAY BIT 

POP PSW ;RECALL ERROR (C> FLAG 

RET 

* ROUTINE HANOLES EACH BYTE 



FEOA 
C8 

C5 

05 

4F 

C0CE43 

01 

C1 

C9 



B0100 EQU S 

CPI LF 
RZ 

B0120 EQU $ 

PUSH B 

PUSH 

MOV C,A 

CALL XHINT 

POP 

POP B 
RET 



;STRIP OUT LINE FEEOS 



;CHINT KILLS ALL 

;CHINT TAKES INPUT IN C 
;OISPLAY BYTE 



IF NON-FORMAT MODE, SEND CR LF TO OISPLAY 



C0C847 

CO 

3E00 

C02744 

3E0A 

C32744 



BD200 EQU S 

CALL CKFMT 

RNZ 

MVI A,CR 

CALL B0120 

MVI A # LF 

JMP B0 120 



; FORMAT MOOE? 
;YES - QUIT 
;N0 - SEND CR 

; (SAVING REGISTERS! 

;ANO LF 



IHIBIT CR*LF IN READ MOOE 



B0300 



3A67FE 
E620 
CC3044 
C9 



EQU $ 

LOA BYFL1 

ANI BYMF2 

CZ BO 200 
RET 



;FLA6 

;REAB MOOE 
;Z=NO 



************************ 

EXPBUF - PROCESS BUFFER OF DATA, 
EXPANDING CONTROL COOES 

CALLED BY IOROGO (BUFFER TO OATACOM) 
BF20SP (BUFFER TO OISPLAY) 
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4447 
4447 
4449 
4449 
44 4 A 
444B 
444E 
4451 
4454 
4455 
4456 
4457 
4458 
4459 
445A 
445 B 
445C 
445D 



r 
i 

# 
i 

i 
i 

i 
» 
i 
* 

* 

r 
i 
i 
r 

* 
i 

t 

i 

t 
* 

# 
t 
i 

i 
# 
* 
m 
* 
i 

# 

* 
r 
# 
r 
r 
* 



BF2PRT (BUFFER TO PRINTER) 

INITIALIZATION: 

ENTRY EXPBFO - SKIP NO BYTES 
ENTRY EXPBF1 - SKIP FIRST (B-REG) BYTES 
Z => DELETE TERMINATING CRLF 
NZ,NC => 00 NOT DELETE 
C * *> SKIP CONTROL CODES 
C =-1 => PASS CONTROL CODES 
D,E -> BOF TYPE(MUST BE -1 ==> DATA) 
H„L ~> SUBROUTINE TO BE EXECUTED 
FOR EACH BYTE PROCESSED: 
ENTRY: A = BYTE 
EXIT : NC -> NO ERROR 

C -> FATAL ERROR 
A # H,L DESTROYED 

CONTINUATION - ENTRY EXPBF2: 
B - BYTES REMAINING 
C-REG AS ABOVE 

D,E -> NEXT BYTE TO BE PROCESSED 
H # L -> SUBROUTINE 

EXIT : C => FATAL ERROR 
A-E DESTROYED 
NC => NO ERROR 

NZ => BUFFER EXHAUSTED 
A-D DESTROYED 
E = 
Z => FIELD SEPARATOR FOUND 
A ■ 304B *> FIELD SEPARATOR 
A = => NEXT-TO-LAST CHAR 
B = BYTES REMAINING 
C-REG AS ABOVE 
D # E -> NXT BYTE 
H,L -> SUBROUTINE 



TO BE PROCESSED 



A "NEXT-TO-LAST CHAR" RETURN IS GUARANTEED, 
EVEN IF THE BUFFER IS EMPTY <ONLY CR LF>. 
IN THAT CASE, THE NEXT CALL RETURNS BUFFER 
EXHAUSTED. 



0600 

E5 

F5 

2A2A70 

2275FF 

CD5E3D 

IB 

1A 

54 

58 

6F 

2D 

90 

47 

F1 

C26F44 



EPBFO 
EPBF1 



EQU 

MVI 

EOU 

PUSH 

PUSH 

LHLD 

SHLD 

CALL 

DCX 

LDAX 

MOV 

MOV 

MOV 

DCR 

SUB 

MOV 

POP 

JNZ 



S 

B„G 
$ 

H 

PSW 

ATOUT 

CLTST 

GTPTR 

D 

D 

D,H 

E^B 

L,A 

L 

B 

B,A 

PSW 

E8G10 



;B = => SKIP NO BYTES 

;SAVE ADDRESS 

^SAVE C *> DO NOT DEL CRLF 

; CLEAR CURRENT ENHANCEMENT 

;AND ALTERNATE CHAR SET 
;GET POINTER TO FIRST BYTE 
;D # E -> LENGTH 
;GET LENGTH 

;D,E -> FIRST BYTE TO PROCES 

;H,L -> LAST BYTE 

;A = REMAINING BYTES 

;B = COUNTER 

;RECALL C-BIT 

;NZ => DO NOT DELETE CRLF 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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4485 
4485 
4486 
4487 



;******************** 
; STRIP OFF TERHINAT 
~ ******************** 



78 
30 
C8 



************************ 
INS CR LF, IF PRESENT * 
************************ 

;GET LAST CHAR 

;IS IT A LF? 

;IF NOT, DON'T STRIP 

;6ET NEXT -TO-LAST CHAR 

;IS IT A CR? 
;IF NOT, DON'T STRIP 
;CR LF TERMINATES RECORD, 
; COUNT <- COUNT-2 

;H,L -> SUBROUTINE 

;RETURN "NEXT-TO-LAST CHAR" 

IF NO MORE CHARS 
;ONLY ONE CHAR LEFT? 

;YES -RET "PENULTIMATE CHAR 

;6ET NEXT BYTE 

;ADVANCE POINTER 

;DECREMENT COUNTER 

;LAST CHAR=FIELD SEP=> NO RE 

;IS IT A FIELD SEPARATOR? 

;YES - RETURN 

;N0 - IS IT A CONTROL CODE? 
;YES - EXPAND IT 
;N0 - SAVE SUBROUTINE ADORES 
;PERFORM THE SUBROUTINE 
;RESTORE SUBROUTINE ADDRESS 
; RE-ENTRY FOR ESCAPE SEQUENC 
;RETURN ON ERROR 



~ ********************************* 

; CONTINUE AFTER FIELD SEPARATOR * 
J********************************* 

EPBF2 EQU S 

MOV A,B ;0NLY ONE CHAR LEFT? 

DCR A 

RZ ;YES - RET "PENULTIMATE CHAR 

; *********************** 



4460 


7E 




MOV 


A,M 


4461 


D60A 




SUI 


LF 


4463 


C26F44 




J HI 


EB010 


4466 


2B 




OCX 


H 


4467 


7E 




MOV 


A,M 


4468 


D60D 




SUI 


CR 


446A 


C26F44 




JNZ 


EB010 


446D 


05 




DCR 


B 


446E 


05 




DCR 


B 


446F 




EB010 


EQU 


$ 


446F 


E1 




POP 


H 


4470 


C8 




RZ 




4471 


78 


» 


MOV 


A,B 


4472 


3D 




OCR 


A 


4473 


CS 




RZ 




4474 




EB020 


EQU 


$ 


4474 


1A 




LDAX 


D 


4475 


13 




INX 


D 


4476 


05 




DCR 


B 


4477 


CA7D44 




JZ 


EB030 


447A 


FEC4 




CPI 


FDSEP 


447C 


C8 




RZ 




447D 




EB030 


EQU 


$ 


447D 


B7 




ORA 


A 


447E 


FA9044 




JM 


EB100 


4481 


E5 




PUSH 


H 


4482 


CF 




RST 


1 


4483 


E1 




POP 


H 


4484 




EB050 


EQU 


S 


4484 


D8 




RC 









; CONTINUATION ENTRY 


* 








; *********************** 




4488 




EPBF3 


EQU 


$ 








4488 


78 




MOV 


A,B 




;ANY 


CHARS LEFT? 


4489 


B7 




ORA 


A 








448A 


C27444 




JNZ 


EB020 




;YES 


- PROCESS NEXT 


448D 


5F 




MOV 


E,A 




;YES 


- CLEAR E-RE6 


448E 


3G 




INR 


A 




;SET 


NZ *> BUFFER EX 


448F 


C9 




RET 














;************************* 








; HANDLE CONTROL 


CODES * 








• ************************* 




4490 




EB100 


EQU 


$ 








4490 


A1 




ANA 


C 




;PASS 


CONTROL CODES? 


4491 


C A 8444 




JZ 


EB050 




;N0 - 


CONTINUE 


4494 


C5 




PUSH 


B 




;SAVE 


REGISTERS 


4495 


D5 




PUSH 


D 









FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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ERRORS 



1 PAGE tt6 



4496 

449? 
4498 
4498 
449C 
449F 
44A2 
44A5 
44A6 
44A7 
44A8 
44AB 
44AE 
44 A F 
44B0 



44B3 
44B3 
44B6 
44B8 
44B9 
44B9 
44BC 
44B0 
44BD 
44C0 
44C1 
44C3 
44c4 



44C5 
44C5 
44C8 
44C9 
44CB 



EB 

4F 

C05200 

EB 

113BFF 

3A3BFF 

323CFF 

93 

3C 

47 

CD8544 

D48844 

D1 

CI 

C38444 



3A4EFF 

FE04 
CO 

CDD80G 
C8 

2164FF 

7E 

F68C 

77 

C9 



CD333D 

D8 

3604 

2B 



# 

i 
r 
r 



r 
i 

r 
r 

s 


f 

» 

r 

r 
D 



XCH6 

HOV 

CALL 

XCHG 

LXI 

LDA 

ST A 

SUB 

INR 

HOV 

CALL 

CNC 

POP 

POP 

JMP 



C^A 
EPAND 

D,BD8UF 

BDEND 

BDPTR 

E 

A 

B,A 

EPBF2 

EPBF3 

D 

B 

EB050 



;EXPAND WANTS BYTE IN C U 

; EXPAND TO ESC SEQUENCE 

;H,L -> SUBROUTINE 

;D # E -> FIRST CHAR OF ESC SE 

;GET END POINTER 

;CLEAR BUFFER 



;B * NUMBER OF CHARS 
;SEND ESC SEQUENCE 

;N0 ERROR - SEND LAST CHAR 
;RESTORE REGISTERS 



; CONTINUE 



************************ 

INTDSP - INITIALIZE DISPLAY FOR COPYING TO 
BUFFER 



ITDSO 



ITDSP 



SNDSP 



SETS 



EQU 
LDA 
CPI 

RNZ 

EQU 

CALL 

RZ 

EQU 

LXI 

HOV 

OR I 

HOV 

RET 



I0FLG2 ENDDSP IF CURSOR IS BEYOND 
END OF DISPLAY 



S 

IPDEV 

DSPLY 

$ 

IITDG 

$ 

H,IFL62 
A # H 
EDDSP 

M^A 



;IS INPUT = DISPLAY? 

;N0 - RETURN 

;ANY CHARACTERS? 
;YES - RETURN 
;SET END OF DISPLAY FLAG 
;N0 - SET END-OF-DISPLAV 
;FLA6 



************************ 
DSP2BF 
ENTRY: DON'T CARE 

EXIT : NC => SUCCESS 

0,E -> STATUS 
C => ERROR 

B # E DESTROYED 
A,B # H,L DESTROYED 



P2BF EQU $ 

CALL GIOBO 

RC 

HVI K^DSPLY 

DCX H 

************************************************* 



;6ET A BUFFER 
;RETURN ON ERROR 
;MARK FOR DISPLAY'S USE 
;H # L -> TYPE 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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44CC 
44CF 
44D0 
4402 
44D4 
4407 
4408 
44D9 
440C 
440E 
440E 
44E0 
44E1 
44E2 
44E4 
44ES 
44E6 
44E7 



44E8 
44E8 
44E9 
44EA 
44EB 
44 EE 
44F1 
44 F4 
44F6 
44F9 
44FA 
44FC 
44F0 
44F0 
4500 
4502 



1164FF 

1A 

F620 

3603 

FADE44 

87 

OF 

F2E844 

3602 

E61F 

12 

2B 

3601 

23 

23 

EB 

C9 



12 

2B 

EB 

C0C847 

C 2054 5 

3AC0FF 

FE17 

C2FD44 

7E 

F640 

77 

CD5E30 

36FF 

C32345 



; TEST FLAGS FOR END OF BISPLAY OR END OF PAGE * 
; ON LAST CALL TO 0SP2BF * 

* ************* ************************* *********** 



D,IFLG2 



XS2BF 

M,3 

OB 010 

A 



0B010 



LXI 

LOAX 

OR I 

MVI 

AH 

AOO 

RRC 

JP 

MVI 

EQU 

ANI 

STAX 

OCX 

MVI 

1NX 

INX 

XCHG 

RET 
;**************#******#*****#**** 
; SET UP TO READ FROM DISPLAY * 
^************* ************ ******* 



;SET XFR OISP TO BUFFER FLAG 



;OI0 LAST CALL FINISH DISP? 

;(RARK BUF FOR END OF OISP 
;YES - QUIT 
;BOTTOM OF OISP PAGE? 

^(RESTORE I0FL6S> 
;N0 - CONTINUE 
;YES - MARK BUF FOR END OF P 



OB 020 

M,2 

$ 

-1 -EDDSP-DPBTM-XS2BF 



H ;H,L -> LENGTH 

M r 1 ;1 IS DEFAULT 

H 

H 

;D # E -> STATUS 



; CLEAR FLAGS 



DB020 



DB030 



E€IU 

STAX 

DCX 

XCHG 

CALL 

JNZ 

LDA 

CPI 

JNZ 

MOV 

OR I 

MOV 

EftU 

CALL 

MVI 

JMP 



$ 

D 

H 

CKFMT 

OB 040 

CRROW 

MX ROW 

OB 030 

A,M 

OPBTM 

M^.A 

$ 

GTPTR 

*,-1 

OB 060 



;SAVE I0FL62 



;d # e -> 

^FORMAT 



LENGTH 
MODE? 



;N0 - IN LAST ROW? 

;N0 - 

;YES - SET DSPBTM 



;6ET POINTER TO 1ST BYTE 
;-1 => NO CHARS REC'O YET 



I************************************************* 

; WRITE HEADER FOR COPY FROM FORMATTED DISPLAY * 



BUF 



4505 


DB040 E«U 


$ 


;YES - WRITE HEADER 


4505 


CD5E30 


CALL 


GTPTR 


;6ET PTR TO 1ST BYTE OF 


4508 


36C4 


MVI 


M^FDSEP 


;PUT SEPARATOR 


450A 


2C 


INR 


L 




450B 


3A20FF 


LDA 


ED ROW 


; CALCULATE NUMBER OF ROW 


450E 


47 


MOV 


B # A 




450F 


3AC0FF 


LDA 


CRROW 




4512 


4F 


MOV 


C,.A 




4513 


3AA3FF 


LDA 


TLINO 




4516 


81 


ADD 


C 




4517 


90 


SUB 


B 




4518 


3D 


OCR 


A 


;CURROW ♦ TLINO - ENDROW 


4519 


77 


MOV 


M # A 




451A 


2C 


INR 


L 




451B 


36C4 


MVI 


M^FDSEP 


;PUT SEPARATOR 


4510 


2C 


INR 


L 




451E 


3AC1FF 


LDA 


CRCOL 


;WRITE CURRENT COLUMN 



- 1 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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4521 


77 




MOV 


M,A 




4522 


2C 




INR 


L 




4523 




DB060 


ECU 


$ 




4523 


D5 




PUSH 


D 


;SAVE PTR TO LENGTH 


4524 


EB 




XCH6 






4525 




DB090 


EQU 


$ 


; INSERT CHAR SET FOR FOREIGN 


4525 


3E0D 




«VI 


A,SCKST 


;TERMINALS 


4527 


CD0870 




CALL 


ZBCTL 




452A 


D22F45 




JNC 


DB10G 





;************************************** 

; START FILLING BUFFER FROM DISPLAY * 
; D # E -> BUFFER * 

:************************************** 



452D 




DB099 


EQU 


$ 




4520 


12 




STAX 







452E 


1C 




INR 


E 




452F 




0B100 


EQU 


S 




452F 


05 




PUSH 





;6ET0SP KILLS ALL 


4530 


C04C00 




CALL 


6TDSP 




4533 


01 




POP 







4534 


0A5345 




JC 


0B200 


;N0 CHAR - HANOLE TERMINATOR 


4537 


FEOA 




CPI 


LF 


;LINE FEED? 


4539 


C22045 




JNZ 


0B099 


;N0 - PUT IN BUF, SET NXT CH 


453C 


C0C847 




CALL 


CKFMT 


;YES - FORMAT MODE? 


453F 


C22045 




JNZ 


OB 099 


;YES - PUT IN BUF, GET NEX 


4542 


3AC1FF 




LOA 


CRCOL 


;N0 - IS LF IN 1ST COLUMN? 


4545 


30 




OCR 


A 




4546 


CA2F45 




JZ 


0B100 


;YES - IGNORE LINE FEED 


4549 


2164FF 




LXI 


H^IFL62 


;N0 - LF IS ENO OF REC 


454C 


7E 




MOV 


A,M 




4540 


E6BF 




AN I 


-1-DPBTM 


;LF CANNOT BE ENO OF 


454F 


77 




MOV 


M # A 


;OISPLAY PAGE 


4550 


C3C745 




JHP 


DB440 


;APPENO LF AND QUIT 






;******************************* 






; HANDLE DISPLAY TERMINATORS * 






-******************************* 


4553 




OB200 


EQU 


$ 




4553 


FA7645 




in 


OB250 


;END OF DISPLAY 


4556 


C29245 




JNZ 


OB 300 


;ENO OF ROW 






- ***************** 








; ENO 


OF FIELO * 








- ***************** 




4559 


3AC0FF 




LOA 


CRROW 


;ENO OF RON? (HAS ABS ROW NU 


455C 


21A3FF 




LXI 


H,TLINO 


;CHAN6ED?> 


455 F 


86 




ADO 


M 


;CALCULATE ABS ROW NUMBER 


4560 


212CFF 




LXI 


H,EDROW 


;SUBTRACT PREVIOUS ROW NUMBE 


4563 


96 




SUB 


M 




4564 


C29245 




JNZ 


OB300 


;YES - BUFFER FINISHED 


4567 


3EC4 




nvi 


A^FDSEP 


;N0 - PUT FIELD SEPARATOR 


4569 


12 




STAX 







456A 


1C 




INR 


E 




456B 


3AC1FF 




LDA 


CRCOL 




456E 


2E21 




RVI 


L # EOCOL* 


256/256 


4570 


96 




SUB 


M 


;CURCOL-ENDCOL 


4571 


12 




STAX 







4572 


1C 




INR 


E 




4573 


C32545 




J MP 


DB090 


;GET MORE CHARACTERS 



* ******************* 
; ENO OF DISPLAY * 

2 ******************* 



FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 
FILE 



20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
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4576 
4576 
4579 
457A 
4570 
457E 
4581 
4582 
4583 
4583 
4586 
4 589 
4589 
458A 
458 C 
4580 
458F 



4 592 
4592 
4595 
4596 
4599 



459C 
459F 
45A1 
45A3 
45A6 
45A9 
45AC 
45A0 
45B0 
45Bt 
45B4 
45B4 
45B5 
45B5 
45B8 
45BB 
45BC 
45B0 
4 5 BE 
45C0 
45C3 
45C3 
45C5 
45C6 
45C7 
45C7 
45C9 
4 5CA 
45CB 
45CC 
4 SCO 
45CE 
4500 



2A73FF 

23 

3A0478 

BE 

C28345 

12 

1C 

C00A45 
C2B545 

E1 

3600 

23 

3603 

C30045 



3A73FF 

B7 

CC0A45 

CA8945 



3A64FF 

E640 

3EDF 

C49E2B 

C2B545 

3AAEFF 

87 

CCC847 

05 

CC4F00 

01 

C0C847 

C2C345 

10 

1A 

1C 

FEOO 

CAC745 

3E00 

12 

1C 

3E0A 

12 

1C 

E1 

73 

23 

36 FF 



08250 



EQU $ 

LHLO GTADR 
1NX H 



LOA 
CMP 
JNZ 



BKTRM 

M 

DB270 



STAX D 



0B270 



0B280 



INR 
EQU 



E 
$ 



CALL 0B600 
JNZ OB410 



EQU 
POP 
MVI 
INX 
MVI 
JMP 



$ 

H 

M,0 

H 

M,3 

0B500 



*********** 

OF LINE * 
*********** 
0B300 EQU $ 



;***** 

; END 

r ***** 



0B400 
0B410 



0B420 



0B440 



0B500 



LOA 
ORA 
CZ 
JZ 



LOA 

ANI 

MVI 

CNZ 

JNZ 

LOA 

OR A 

CZ 

PUSH 

CZ 

EQU 

POP 

EQU 

CALL 

JNZ 

OCR 

LOAX 

INR 

CPI 

JZ 

EQU 

MVI 

STAX 

INR 

EQU 

MVI 

STAX 

INR 

POP 

NOV 

INX 

MVI 

EQU 



GTADR 
A 

OB 600 
OB 280 



IFLG2 

OPBTN 

A,-1-R 

CIOFS 

OB 410 

DPTYP 

A 

CKFMT 



LFEEO 

S 



$ 

CKFMT 

DB420 

E 



E 

CR 

0B440 

$ 

A,CR 



E 

$ 

A # LF 



E 

H 

N,E 

H 

M # -1 

$ 



ERRORS = 1 PAGE 119 



;HAS LAST CHAR BLOCK TERM? 



;N0 - 

;YES - PUT IT IN THE BU F 



;ANY CHARS REC*D? 

;¥ES - AOO CR^LF AND RET OAT 

;N0 - RECALL PTR TO LENGTH 
;SET LENGTH = 

;NARK ENO OF DISPLAY 
;CLEAR OISP TO BUF FLG 8 QUI 



;ENO OF DISPLAY, TOO? 

;YES - IS THIS A NULL LINE? 
;YES - RET ENO OF DISPLAY 
NO - TREAT AS NORMAL REC, 
ENOOSP SET BY D2B6G0 

;B0TT0M OF DISPLAY? 
CPGE ;IF S0 # AND RECORDING F1L 
^INHIBIT ROLLUP 
^RECORDING PAGE - DO NOT LF 
;SOFT KEY MODE? 

;N0 - FORMAT MODE? 

;N0 - 00 LF 



; FORMAT MODE? 

;YES - APPEND CR* LF 

;N0 - LAST CHAR CR? 



;YES - APPEND LF 
;APPENO CR, LF 



;APPEND LF 



;RECALL LENGTH PTR 
;SAVE LENGTH 

;MARK DATA RECORD 
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4500 


23 




4501 


EB 




4502 


2164FF 




4505 


?E 




4506 


E60F 




4508 


77 




4509 


C9 


i 


450A 









45 OA 


62 




45DB 


2E0Q 




4500 


7E 




450E 


3C 




450F 


C8 




45E0 


C3B044 





4610 




4610 


23 


4611 


7E 


4612 




4612 


F63G 


4614 


G34Q0Q 



;H,L -> STATUS 
;D,E -> STATUS 
;TURN OFF OISP TO BUF FLAG 



INX H 

XCHG 

LXI H,IFL62 

M©V A ,M 

AN I -1-XS2BF 

MOV M,A 

RET 
; ************************************************* 
AT END OF OISP - * 

NULL REC => RET NZ CENB OF DISPLAY) * 

OTHER => SET ENOOSP & RET Z (DATA RECORD) * 
************************************************* 
OB600 EQU $ 

MOV H,f> ;D,E -> BUFFER, SO SET UP 

MVI L„G ;H,L -> FIRST CBAR 

;IS 1ST CHAR -1? 



MOV A,M 

INR A 

RZ 

JMP SNOSP 



;YES »> NULL RECORD* RET Z 
;N0 => SET ENOOSP* RET NZ 







*■ 


45E3 




I 


45E3 


3E1B 




45E5 


CD4Q00 




45E8 


3E5C 




45EA 


CD4C00 




45E0 


3E70 




45EF 


CD4000 




45F2 


2148FF 




45F5 


7E 




45F6 


0600 




45F8 


C0B941 




45FB 


C01246 




45FE 


CD1G46 




4601 


C01046 




4604 


C01G46 




4607 


CD3A00 


# 


460A 




i 
I 


460A 


01FFF6 




4600 
4610 


C31900 


# 

t 
I 



*********************** 



I0ST60 - TRANSMIT DEVICE STATUS 



RETURNS TO SYSTEM VIA "SDTERM* 



STGO 



EQU $ 


MVI 


A, ESC 


CALL 


XUTD3 


MVI 


A,ACKSL 


CALL 


XUTD3 


MVI 


A,SALLP 


CALL 


XUTD3 


LXI 


H,ISTAO 


MOV 


A,M 


MVI 


B,0 


CALL 


B2NUM 


CALL 


IS 120 


CALL 


IS100 


CALL 


IS 100 



CALL IS100 



;OUTPUT ESCAPE 
;OUTPUT BACK SLASH 
# OUTPUT SMALL P 
;GET DEVICE BIT 



; CONVERT TO NUMBER 
; OUTPUT DEVICE 
;OUTPUT 1ST STATUS BYTE 
;OUTPUT 2ND STATUS BYTE 
;OUTPUT 3RD STATUS BYTE 



CALL STERM ;SEND THE TERMINATOR 

I0STX1 - CLEAR DEVICE STATUS PENDING 

STX1 EQU $ 

LXI B # -1-S0¥ST-SDC2 

JMP CBLXF ; CLEAR FLAG AND EXIT 

INCREMENT POINTER, GET A BYTE, AND OUTPUT IT 



SI 00 



IS120 



EQU 


$ 


I NX 


H 


MOV 


^#M 


EQU 


% 


ORI 


60Q 


JMP 


XUTD3 



;POINT TO NEXT STATUS BYTE 

;6ET THE BYTE 

;ENTRY FOR 0UTPUTTIN6 DEVICE 

;CONVERT TQ ASCII DIGIT 

;OUTPUT 



FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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4617 
461? 
461A 
4610 
4620 
4623 



4626 
4626 
4629 
462A 
462B 
462 C 
4620 
462E 
4631 
4634 
4636 
4638 
463B 
463C 
463C 
463F 
4640 
4643 
4643 
4646 
4649 
464A 



464D 
464E 
464F 
4652 



01FF7F 
CD 1900 
3A4CFF 
C04000 
C33A00 



C03047 

08 

05 

1B 

1A 

3C 

C27046 

3AFAFF 

E610 

OEOO 

CA3C46 

00 

217046 

B4 

C04744 

0A7B46 
C27546 
B7 
CA6A46 



1A 
B7 

CA6846 
C5 



r 

r 

i 

# 
* 
# 

m 

t 

i 

i 



****** ** ****** *** **** ** 

IODNGO - SEND OPERATION COMPLETED RESPONSE 

ENTRYr IOCDPT * COMPLETION TYPE (F,S,U> 
H = BASE 

RETURNS TO SYSTEM VIA "SOTERM" 



IDNGO EQU $ 

LXI B # -1-SVDUN ;CLEAR DEVICE DONE 

CALL CBLXF ;PEN0IN6 FLAG 

LOA ICDPT ; FETCH COMPLETION TYPE 

CALL XUTD3 

JMP STERM ;OUTPUT TERMINATOR 



************************ 

BF2PRT - PRINT OUT CONTENTS OF BUFFER 

ENTRY: D # E -> BUFFER STATUS 

EXIT : NC => NO ERROR 
C => ERROR 

D,E -> BUFFER STATUS 
A # B,C # H„L DESTROYED 



B2PRT EftU 
CALL 
RC 

PUSH 
OCX 
LOAX 
INR 
JNZ 
LOA 
AMI 
MVI 
JZ 
OCR 

BP010 EQU 
LXI 
OR A 
CALL 

BP030 E«U 
JC 
JNZ 
OR A 
JZ 

;#********* 

; HANDLE F 
:********** 



$ 

PRCHK 







A 

BP100 

KJMP2 

PNTAL 

CO 

BP010 

C 

$ 

H # BP500 

H 

EPBFO 

$ 

BP300 

BP200 

A 

BP080 



;PRINTER CONNECTED? 
;N0 - RETURN 
;SAV£ PTR TO BUF STATUS 
;D,E -> TYPE 

;DATA RECORD? C= -1> 

;N0 - DO FORM FEED 

;YES - PASS CONTROL CODES? 

;€SET FOR NOT PASSING) 



;PTR TO PRINTOUT ROUTINE 
;NC,NZ *> 00 NOT DELETE CRLF 
;EXPAND BUFFER AND PRINT 



LOAX 
ORA 
JZ 
PUSH 



;EXIT ON ERROR 
;EXIT ON BUFFER EXHAUSTED 
;NEXT-TO-LAST CHAR? 
;YES - OUTPUT LAST 
************************* 

ORMAT FIELD SEPARATORS * 
************************* 

;6ET FIELD PARAMETER 

A ;=0? 

BP070 ;YES - IGNORE 

B 
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4653 


D5 


4654 


E5 


4655 


4F 


4656 


0620 


4658 


7B 


4659 


30 


465A 


C25F46 


4650 


060A 


465F 




465F 


C0ED46 


4662 


El 


4663 


01 


4664 


CI 


4665 


0A7B46 


4668 




4668 


13 


4669 


05 


466A 




466A 


C08844 


466D 


C34346 



BP050 



PUSH 







PUSH 


H 




NOV 


C r A 


;C <- COUNT 


RVI 


8 # ABLNK 


;SET FOR PRINTING 


NOV 


A,.E 


; UNLESS THIS IS 


OCR 


A 


;FIELD SEPARATOR 


JNZ 


BP050 




KVI 


B # LF 


;FIRST FIELO - P 


EftU 


$ 




CALL 


PRCHR 


;PRINT 


POP 


H 




POP 







POP 


B 




JC 


BP300 


;EXIT ON ERROR 


EQU 


$ 




INX 





;tiOVE POINTER PAST 


OCR 


B 




EQU 


S 




CALL 


EPBF3 


^CONTINUE PRINTING 


JHP 


BP030 


;EVALUATE RESULTS 



ASCII BLAN 
THE FIRST 



PRINT LF»S 



BP070 



BP080 



;******************** 

; PRINT FORK FEEO * 
• ******************** 



COUNT 



4670 




BP100 EftU $ 






4670 


3E0C 


KVI A # FF 






4672 


C07046 


CALL BP500 










; **************************** 








; RELEASE BUFFER ANO 


SUIT * 








: **************************** 




4675 




BP200 EQU S 






4675 


D1 


POP 


;»,E -> 


STATUS 


4676 


1A 


LOAX 






4677 


E6F7 


ANI -1-PINTR 






4679 


12 


STAX 






467A 


C9 


RET 

; ***************** 

; ERROR RETURN * 
; ***************** 


;RET NC 


=> NO 


467B 




BP300 EftU $ 






467B 


01 


POP 


;o,e -> 


STATUS 


467C 


C9 


RET 


;IOEXIT 


CLEARS 



ERROR 



BUFS 
;******************************* 

; ROUTINE TO OUTPUT ONE BYTE * 
^ ******************************* 



4670 
4670 


C5 


BP50G 


EftU $ 
PUSH B 




467E 


0E01 




NVI C,1 


;ONE REPETITION 


4680 


47 




NOV B # A 


;B¥TE IN B-REG 


4681 


05 




PUSH 




4682 


CDE046 




CALL PRCHR 




4685 


01 




POP 




4686 


C1 




POP B 




4687 


C9 




RET 





*********************** 

; 9866 PRINTER ORIVER * 
I ********************** 

i 
r 
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4688 


PC 


HR1 EQU 


$ 


4688 


21DC05 


LXI 


H^PTDLY 


46 SB 


PR110 EQU 


$ 


468B 


3AOD80 


LDA 


PRST1 


468E 


B7 


ORA 


A 


468F 


F24547 


JP 


PR700 


4692 


OF 


RRC 




4693 


57 


MOV 


B,A 


4694 


DAA346 


JC 


PR120 


4697 


78 


MOV 


A,B 


4698 


322D80 


STA 


PR0T1 


469B 


7A 


MOV 


A^D 


469C 


E6Q2 


ANI 


2 


469E 


CO 


RNZ 




469F 


3A0F80 


LDA 


PRCL1 


46A2 


C9 


RET 




46A3 


PR120 EQU 


$ 


46A3 


3AF6FF 


Lf>A 


ITFL6 


46A6 


0603 


SOI 


TRINT 


46A8 


C28B46 


JNZ 


PR110 


46AB 


32F6FF 


STA 


ITFLG 


46AE 


2B 


OCX 


H 


46AF 


7C 


MOV 


A^H 


46B0 


B5 


ORA 


L 


46B1 


CA4547 


JZ 


PR 7 00 


46B4 


C38B46 


JMP 


PR110 



;SET TIMEOUT COUNTER 

INPUT STATUS 

;IS PRINTER OUT OF PAPER? 

;YES-TERMINATE 

;IS PRINTER READY? 

;SAVE STATUS 

;N0 - CHECK TIMEOUT 

;SET CHARACTER 

OUTPUT 

;6ET STATUS 

;STROBE DATA? 

;N0 - QUIT 

;YES - OUTPUT STROBE 
;ANO RETURN 

;TIMER INTERRUPT? 

;N0 - CONTINUE WAITING 
;YES - CLEAR FLAG 
^DECREMENT TIMEOUT COUNTER 
;TIME OUT? 

; YES-REPORT ERROR 
;CHECK STATUS AGAIN 



; ************************ 
; RS-232 PRINTER DRIVER * 
• ************************ 



46B7 


21DC05 


46BA 




46BA 


3A2580 


46BD 


E622 


46BF 


FE02 


46C1 


C2D946 


46C4 


3A4580 


46C7 


E6EC 


46C9 


C2D446 


46CC 


3A2580 


46CF 


E640 


46DY 


CA&946 


46D4 




46D4 


78 


46D5 


326580 


46D8 


C9 


46D9 




46D9 


3AF6FF 


46DC 


D6G3 


46DE 


C2BA46 


46E1 


32F6FF 


46E4 


2B 


46E5 


7C 


46E6 


B5 


46E7 


CA4547 


46EA 


C3BA46 



PCKR2 



PR630 



PR635 



EQU $ 

LXI H^PTDLY ;SET TIMEOUT COUNTER 

EQU $ 

LDA PRST2 ; INPUT STATUS 

ANI PRDY2+PR0L2 ; IS PRINTER READY? 

CPI PRDV2 

JNZ PR640 ; NO-GO WAIT 

LDA PRCF2 ;READ IN CONFIG. STRAPS 

ANI PRHD2 ;IS IT A HANDSHAKE DEVICE? 

JNZ PR635 ;N0 - OUTPUT THE CHARACTER 

LDA PRST2 ;GET STATUS 

ANI PRSB2 ;IS SB LINE SET/RDY? 

JZ PR640 ;N0-60 WAIT FOR PRINTER 

EQU $ 



MOV A,B 
STA PRDA2 
RET 



PR640 



EQU 
LDA 
SUI 
JNZ 
STA 
DCX 
MOV 
ORA 
JZ 



$ 

ITFLG 
TRINT 
PR 630 
ITFLG 
H 

A^H 
L 
PR7G0 



JMP PR630 



;GET CHARACTER 
; OUT PUT 



;TIMER INTERRUPT 

;N0 - CONTINUE WAITING 
;YES - CLEAR FLAG 
; DECREMENT TIMEOUT COUNTER 
;TIME OUT? 

;VES-REPORT ERROR 
;NO-GO CHECK STATUS 
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46E0 
46E0 
46F0 
46F1 
46F4 
46F7 
46F8 
46F9 
46FC 
46F0 
46FE 
46FF 



46FF 
4702 
4703 
4704 
4707 



3A77FE 

3D 

C20847 

3A0D80 

OF 

OF 

D2FF46 

78 

2F 

47 



CD8846 

08 

OD 

C2FF46 

C9 



4708 




4708 


1A 


4709 


57 


470A 




470A 


C6B746 


470D 


D8 


47 OE 


1E01 


47t0 


78 


4711 


FE2C 


4713 


623847 


4716 


FEOD 


4718 


C22147 


471B 


7A 


471C 


FEOA 


471 E 


CA2C47 



I ******************** 




i 
i 
i 


! 


» 




i 



i 

r 



PTRCHR-OUTPUT A CHARACTER ROUTINE 

ENTRYl D # E -> NEXT CHAR 
B=CHARACTER 
C=# OF TIMES TO REPEAT 

EXIT : B - CHARACTER 
C => ERROR 
NC => NO ERROR 
A # C,D,E # H,L 



PRCHR 



PRC30 



EOU $ 

LDA PRFLG 

OCR A 

JNZ PRC50 

LDA PRST1 

RRC 

RRC 

4HC PRC30 

MOV A,B 

CM A 

MOV B,A 

£«U $ 



;GET PRINTER TYPE FLAG 
;PRINTER 2 CONNECTED? 

;¥ES - 60 TO PRINTER 2 DRIVER 
;6ET STATUS 

;6ET BIT 1 

;INVERT DATA? 
;YES-GET CHARACTER 

; INVERT IT 
;SAVE CHARACTER IN B REGISTER 






i 



LOGICAL DRIVER FOR PRINTER 1 - PARALLEL 

;OUTPUT CHARACTER 



;ERROR EXIT 



i 






* 




CALL PCHR1 

RC 

DCR C ;IS THIS THE LAST ONE? 

JNZ PRC30 ; NO-GO DO IT AGAIN 

RET ;YES - EXIT 

LOGICAL DRIVER FOR PRINTER 2 - RS232 

NOTE- NULL CHARACTER IS INSERTED AFTER 
EVERT CONTROL CODE CE.G., LF, FF r CR„ 
VT, ETO TO ALLOW PROPER OPERATION 
FOR CENTRONICS BUSY LINE. 



PRC50 



PRC60 



EQU $ 

LDAX 

MOV 

EQU 

CALL 

RC 

MVI 

MOV 

CPI 

JNC 

CPI 

JNZ 

NOV 

CPI 

JZ 



D # A 
$ 

PCHR2 

E,1 
A # B 
40Q 

PRC90 
CR 

PRC70 

A,D 
LF 

PRC80 



;GET NEXT CHAR 
;SAV£ IN D-RE6 

;OUTPUT CHARACTER 

;ERROR EXIT 

;SET UP 1 NULL OUTPUT 
;GET CHARACTER 
;IS IT GREATER THAN 37B? 

;YES - EXIT 
;NO-IS IT A CARRIAGE RET? 

;N0 - GO ADD FILL PAD 

;RECALL NEXT CHAR 
;IS NEXT CHARACTER A LF? 

;YES - OUTPUT ONE NULL 
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4721 
4721 
4724 
4726 
4729 
472A 
472B 
472C 
472C 
472E 
472E 
4731 
4732 
4733 
4736 
4738 

4738 
4739 
473C 



4730 
4730 
4740 
4741 
4742 
4743 
4 744 



4745 
4745 
4748 
474B 
474E 
4750 



3A4 580 

E6EG 

CA2C47 

1F 

1F 

5F 

0600 

CDB746 
08 
10 

C22E47 
060 A 



00 

C20A47 

C9 



2178FE 

AF 

77 

20 

B6 

CO 



21BC3B 
C0612E 
2178FE 
36 FF 
C9 



PRC70 



PRC80 
PRC85 



PRC90 



r 
r 
# 

t 
r 
r 
i 
* 
i 

PRCHK 



* 



PR700 



r 
i 
* 

i 

* 

f 
# 



EQU $ 
LOA PRCF2 
ANI PRHD2 
JZ PRC80 
RAR 
RAR 

«0V E # A 
EQU $ 
MVI B # 
EQU $ 
CALL PCHR2 
RC 

OCR E 
JNZ PRC85 
MVI B,LF 
EQU $ 

OCR C 

4H1 PRC60 

RET 
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;N0 - OUTPUT NULLS 
;READ IH CONFIG. STRAPS 
;IS IT A HANDSHAKE OEVICE? 

;N0 - OUTPUT ONE NULL 
;6ET THE NUMBER OF FILLS 

;SET UP NULL COUNTER 

;SETUP NULL CHARACTER 

;OUTPUT THE CHARACTER 

;ERROR EXIT 

;IS THIS THE LAST NULL? 

;N0 - 60 00 IT AGAIN 
;RESTORE B TO A LF 

;YES - COMPLETE 

;IS THIS THE LAST ONE? 

;N0 - 00 NEXT 
;EXIT 



PTRCHK-CHECKS FOR PRINTER ON-LINE 

ENTRY: A,B,C,D,£,,L=DQN , T CARE 

EXIT : C => ERROR, NO PRINTER 
NC => NO ERROR 
A # H,L DESTROYED 



EQU $ 

LXI H,PRABT 

XRA A 

MOV M,A 

OCR L 

ORA M 

RNZ 



;&ET PRINTER ERROR FLAG 
;CLEAR A REGISTER 
;CLEAR PRINTER ERROR FLAG 
;6ET PRINTER FLAG 
;ANV PRINTERS CONNECTEO? 

;YES - EXIT WITH NC 



DRIVER ERROR RETURN 



EQU $ 

LXI H^PEMSG 

CALL CUER1 

LXI H^PRABT 

MVI M,-1 

RET 



;SET PRINTER ERROR MESSAGE 
pREPORT ERROR CSETS C-BlT> 
;SET PRINTER ERROR FLAG 

;RETURN 



STPRT — PUTS STANDARD PRINTER STATUS 
IN STAT1,STAT2,AND STAT3 FOR 
SYSTEM USE 



EXIT: A # B,C,L DESTROYED 

0,E UNCHANGED; H=BASEH 

REGISTER ALLOCATION 
A-6ENERAL 
B=PRINTER STATUS 
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4751 


STPRT EOU 


S 


4751 


AF 


XRA 


A 


4752 


2149FF 


LXI 


H # ISTA1 


4755 


77 


MOV 


M,A 


4756 


2C 


INR 


L 


4757 


2C 


INR 


L 


4758 


77 


MOV 


M,A 


4759 


3A78FE 


LDA 


PRABT 


475C 


E608 


ANI 


10Q 


475E 


EE08 


XRI 


100 


4760 


324AFF 


STA 


ISTA2 


4763 


3A77FE 


LDA 


PRFLG 


4766 


1F 


RAR 




4767 


02 8 74 7 


JNC 


PRS80 




r 


9866 STATUS 


476A 


3A0D80 


LDA 


PRST1 


476D 


B7 


ORA 


A 


476E 


CA8047 


JZ 


PRS10 


4771 


2E4B 


MVI 


L r ISTA3 


4773 


3601 


MVI 


M,1 


4775 


07 


RLC 




4776 


DA7D47 


JC 


PRS20 


4779 


2E49 


MVI 


L,ISTA1 


477B 


3602 


MVI 


M,2 


477D 


PRS20 EftU 


$ 


4770 


OF 


RRC 




47 7E 


OF 


RRC 




477F 


DO 


RNC 




4780 


PRS10 EO.U 


$ 


4780 


3E01 


MVI 


A,1 


4782 


2E4A 


MVI 


L^ISTA2 


4784 


B6 


ORA 


M 


4785 


77 


MOV 


M # A 


4786 


C9 


RET 






i 
r 


RS-232 STATU 


4787 


PRS80 EftU 


$ 


4787 


3A4580 


LDA 


PRCF2 


478* 


4F 


MOV 


C,A 


478B 


E61F 


ANI 


PRBD2 


478D 


17 


RAL 




478E 


2E4B 


MVI 


L # ISTA3 


4790 


77 


MOV 


M,A 


4791 


3A2580 


LDA 


PRST2 


4794 


47 


MOV 


B,A 


4795 


E622 


AMI 


PRDY2+PR 


4797 


FE02 


CPI 


PRDY2 


4799 


C28047 


JNZ 


PRS10 


479C 


3E01 


MVI 


A,1 


479E 


B6 


ORA 


M 


479F 


77 


MOV 


M,A 


47A0 


79 


MOV 


A # C 


47A1 


E6E0 


ANI 


PRHD2 


47A3 


CO 


RNZ 




47A4 


78 


MOV 


A,B 
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C=STRAP STATUS CRS-232> 



;CLEAR A REGISTER 
;CLEAR I0STA1 

;SKIP OVER STAT 2 
; CLEAR STAT3 

;6ET PRINTER ERROR FLAG 
;MASK FOR ERROR STATUS 
;SET PROPER VALUE 

;SET I0STA2 VALUE 

;GET PRINTER FLAG 
;IS IT DRIVER 2? 
;VES - BUILD RS-232 STATUS 



GET PRINTER STATUS 
;IS PRINTER ON-LINE? 
;NO-GO REPORT NO PRINTER 

;6ET I0STA3 POINTER 
;SET ON-LINE BIT 
;PRINTER OUT OF PAPER? 
;N0 - CHECK READY STATUS 

;INSERT PAPER OUT 
;SET PAPER OUT STATUS 



;PRINTER READT? 
;¥ES - RETURN 
;NO-SETUP PRINTER BUST 
; INSERT PRINTER BUSY 

;IN I0STA2 
;0R IN COMMAND REJECT 
;AND SAVE STATUS 



;GET CONFIG. STRAPS 
;SAVE STRAP STATUS IN C 
;ISOLATE BAUD AND PARITY 
;SETUP BAUD RATE FOR OUTPUT 
;SAVE IT IN I0STA3 

;6ET PRINTER STATUS 

;SAVE PRINTER STATUS IN B 
0L2 ;IS PRINTER READY? 

;NO-REPORT PRINTER BUSY 

; SETUP PRINTER ON-LINE 

;0R IN BAUD RATE 

;SET ON-LINE BIT 

;GET CONFIGURATION STRAPS 

;IS IT A HANDSHAKE DEVICE? 

;NO-EXIT 

;GET STATUS 
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47A5 
47A? 
47AA 



47AB 
47AB 
47AE 
47AF 
47B2 
47B3 
47B5 
47B7 
47B8 
4789 
47BC 
47BC 
47BE 
47C0 
47C2 
47C5 



0098 
009E 
OOAO 
OOF A 



4FFD 



E640 

CA8047 

C9 



CD3D47 

08 

21D5FF 

4E 

060A 

2E08 

56 

15 

CAED46 

0E01 

060C 

3E19 

322780 

C3ED46 



* 

r 
i 
i 
i 
t 
i 
» 
m 
# 



CtPRT 



PTXQ5 



AN I PRSB2 
41 PRS10 
RET 



ERRORS * 1 PA6E 127 



;IS SB LIME SET/RDT? 
;N0-60 REPORT BUST 



CTLPRT— OUTPUT STANDARD CONTROLS TO 
PRINTER 



EXIT 



tfh 


IERE C IS DEFINED AS FOLLOWS 





- NOT DEFINED 


(FF) 


1 


- LINE FEED 


(P=# OF LF»S> 


2 


- TOP OF FORM 


CFFJ 


3 


- NOT DEFINED 


<FF) 


4 


- NOT DEFINED 


IFF) 


5 


- END OF FILE 


(FF> 


6 


- END OF VALID 
DATA 


<FF> 


A, 


,B,C,D,.E,L DESTROTED 


H= 


* BASEH 





CKK ;IS A PRINTER ON-LINE 

;N0 - EXIT 
1CCNT ;SET UP NUM. OF LINE FEEDS 



EQU $ 
CALL PR 

RC 

LXI H, 

MOV C # M 

NVI B # LF ;6ET ASCII LF 

MVI L,ICTVP ;6ET TTPE OF CONTROL 

MOV D,M 

DCR D 



JZ 

EQU 
NVI 



PRC 

$ 

C,1 



MVI B„F 
MVI A, 
STA IC 

JMP PRC 



EQUATES FRO 
TO BE REM 
****** 



HR 



F 

25 
RRW 
HR 



;IS IT A LF REQUEST? 
;VES-60 DO LINE FEEDS 

;SETUP FOR ONE CHARACTER 
;SETUP FOR FORM FEED-FF 
;MOVE CURSOR OFF SCREEN 

;G0 OUTPUT CHARACTER 



M MAIN CODE SECTION 

OVED WHEN CODE IS MERGED 

**************** 



ETRCD EQU 230Q 

SKTCD EQU 236Q 

FCLIM EQU 240Q 

T ST ICY EQU 37 2Q 



;ENTER KET CODE 
;SEL£CT KEY CODE 
;FUNCTION CODE UPPER LIMIT 
;TEST KET CODE 



; COMMON ROUTINES - DUPLICATED FROM MAIN CODE 






ZZZZZ EQU 47775Q ;SLEEP ROUTINE 



*********************** 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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47CE 
47CE 
4700 



0004 
0007 
OOOA 
OOOD 
0010 
0013 
0016 
0019 
001 C 

001 F 
0022 
0025 
0028 
002B 

002 E 
0031 
0034 
0037 

003 A 

003 D 
0040 
0043 
0046 
0049 
004C 

004 F 
0052 
0055 



3E0D 
CDBA42 



4703 


3AF3FF 


47D6 


E604 


47D8 


C8 


4709 


3E0A 


47DB 


C3BA42 



CHKFKT - CHECK FORMAT MODE 

ENTRY: H = BASEH 

EXIT r Z = TRUE, HOT FORMAT MODE 
Z « FALSE, FORMAT MOOE 
A # L OESTROYEO 



;GET TERMINAL MOOE FLAGS 
;MASK FOR FORMAT FLAG 
;RETURN 



; *************************** 

; SENO CR€LF> TO OATACOH * 

; *************************** 
SCRLF EQU $ 

MVI A,CR ;SEND THE CR 

CALL IR400 

; ********************************** 

; SENO LF IFF AUTO LF OEPRESSEO * 
;********************************** 

SAULF EQU $ 



47C8 




CKFMT 


EQU 


$ 


47C8 


3AF4FF 




LOA 


MFLG1 


47CB 


E608 




AMI 


FRMAT 


47C0 


C9 




RET 





LOA 

ANI 

RZ 

MVI 

JMP 



MFL62 
ATOLF 

A,LF 

IR400 



;AUTO LF DEPRESSED? 

;N0 - RETURN 
;Y£S - SENO LF 



**************************************************** 



; PT773 ENTRY VECTOR POINTERES 



• ******************************************* ********* 



OPMSG 

RTOSP 

OCNUM 

OPLUS 

OMNUS 

ECEND 

CKLIM 

CBLXF 

SLXFO 

SLXFA 

SRTBL 

CURPH 

CRPHO 

FECNT 

PBLKO 

CEARL 

CEARS 

F0TB2 

STERM 

STRM1 

XUT03 

TEST 

CINTO 

IITOO 

6TDSP 

LFEED 

EPAND 

NTCHR 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



100B 

DPHSS+3 

RTDSP+3 

OCNUM +3 

OPLUS+3 

DMNUS+3 

ECENO+3 

CKL1M+3 

CBLXF+3 

SLXFO+3 

SLXFA+3 

SRTBL+3 

CURPK+3 

CRPHO+3 

FECNT+3 

PBLKO+3 

C EARL+3 

CEARS+3 

FDTB2+3 

STERM+3 

STRM1+3 

XUT03+3 

TEST+3 

CINTO+3 

IITOO+3 

GTDSP+3 

LFEEO+3 

EPANO+3 



^DISPLAY MESSAGE 
;RESTORE NORMAL DISPLAY 
;ACCUMULATE DIGIT AND SIGN 
;F0R PARAMETERIZED ESCAPE 
; SEQUENCES 
^TERMINATE ESCAPE 



^KEYBOARD INITIATED BLK XFft 

;START BLOCK RECORD 

;HOME CURSOR (-XMIT ONLY) 

;CURSOR HOME DOWN 

;ROT IN BY26X F FREE BLOCKS 

;RELEASE BLOCKS FROM DISPLAY 

;CLEAR LINE 

;CLEAR DISPLAY FROM CURSOR 

;SET BIT N CB-REG * N) 

;SEND TERMINATORS 

;SEND TERMINATOR ONLY 

;TRANSMIT CHARACTER IN A-REG 

^TERMINAL SELF-TEST 

^EXECUTE CHARACTER FUNCTION 

;INIT FOR DISPLAY GET 

;GET DISPLAY BYTE 

;N0 LINE FEED 

;EXPANO DISPLAY CONTROL CHAR 

;GET NEXT DISPLAY CHARACTER 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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0058 
OOSB 
0Q5E 
0061 
0064 
0066 
0069 
006C 

006 F 
0072 
0075 
0078 
007B 

007 E 
0081 
0084 
0087 
008A 



008D 
0090 
0093 
0096 
0099 
009C 
009 F 
O0A2 
O0A5 
00A8 
OOAB 
OOAE 
00B1 
00B4 
00B7 
OOBA 
OOBO 
OOCO 
00C3 
00C6 
00c9 
OOCC 
OOCF 
0002 
0005 
0008 
OOOB 
000 E 
00E1 
00E4 
00E7 
OOEA 
OOEO 
OOFO 



STOCK 
MKSCH 
KKOFF 
KNGUO 
BFMS6 
OTEST 
XRM60 
B20EC 
B20E0 
RAORA 
GMOBE 
RAODR 
IRPON 
CXXXX 
IHOFF 
CURPL 
CORPR 
WL215 



CRRET 

CRPRT 

RLLUP 

RLUP2 

COOOO 

DLWRP 

COXXX 

PTLIN 

LNINS 

CRADV 

LNDEL 

0XB20 

CURPO 

CURPU 

FDLSO 

RA0R4 

NTCKO 

RLLDN 

DSPLC 

DSPLA 

CHAIN 

MLOCK 

SHST1 

DSPC1 

CEOIT 

I IT 06 

RA0R1 

CKFMS 

CER02 

0SPL1 

CRD Li 

CERLO 

GO 

WLOOP 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

END 



NTCHR+3 
GTBCM+3 
MKSCH+3 
MKOFF+3 
HNGU0+3 
BFMSG+2 
DTEST+3 
IRMGO+3 
820EC+3 
B20E0+3 
RADRA+3 
6M00E+3 
RAOOR+3 
IRPON+3 
CXXXX+3 
IHOFF+3 
CURPL+3 
CURPR+3 



WL215+3 
CRRET+3 
CRPRT+3 
RLLUP+3 
RLUP2+3 
CO 000*3 
DLWRP+3 
CDXXX+3 
PTLIN+3 
LNINS+3 
CRAOV+3 
LNBEL+3 
DXB2D+3 
CURPD+3 
CURPU+3 
F0LS0+3 
RADR4+3 
NTCH0+3 
RLLDN+3 
DSPLC+3 
DSPLA+3 
CHAIN+3 
MLOCK+3 
SHST1+3 
0SPC1+3 
CEBIT+3 
IITD6+3 
RADR1+3 
CKFMS+3 
CEB02+3 
BSPL1+3 
CR0L1+3 
CERLO+3 
60+3 



PROCESS DATA COMM INPUT 
LOCATE FIRST UNLOCKED ROW 
TURN OFF MEMORY LOCK 
HAN6 TERMINAL ON FATAL ERROR 
BUFFER OVERFLOW MESSAGE 
DATA COMM SELF-TEST 
EXECUTE CODE FROM OPTION RO 
CONVERT BINARY TO DECIMAL 
CONVERT SIN6LE BYTE TO DEC 
LOCATE CURSOR LOCATION 
CHECK FOR PAGE MODE 
OETERM.LOC.OF ASCI CHAR. 
INSERT CHAR. ON WITH WRAP 
INSERT CHARACTER 
INSERT CHARACTER OFF 
CURSOR POINTER LEFT 
CURSOR POINTER RIGHT 
RETURN FROM BISY MODUL 



;OELETE WITH WRAP-AROUND 
; DEL. CHAR. 



1 PROGRAM ERROR 
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FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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SYMBOL TABLE 
* 01 

A 0007 ABLNK 0020 ACKSL 

ALCC 0063 * ALPHA 00C5 * ALTIN 

ANL 0080 ANR 0040 AFARN 

APSNO 0Q26 * ASIGN 0040 * ASTAK 

ATOLF 0004 A TOUT 702A ATTRM 

B 0000 B15 8000 B1LEN 

B1TYP FF39 B2ALT 4144 B2DE0 

B20SP 4307 B20TB 414C B2LCT 

B2NUM 41B9 B2PRT 4626 B2RCT 

B2TYP FF36 BABRT 4385 BASE 

BASEH OOFF BCOlS 307E BC030 

BC050 30AC BC100 30C8 BC105 

BC150 30EB BD005 43F1 BD010 

BD030 4419 BD100 4424 B0120 

B030G 443E BOBFL 0030 * BOBUF 

BOPTR FF3C BF2CT 306B BFBSN 

BFENO FF8B BFMS6 0064 BKFIL 

BKWSG 3C83 BKSPR 2CE0 BKSPtf 

BKTRG 0001 * BKTRM 7804 BLKSM 

BLLIM 0008 * BNXMT 0002 BOT 

BP015 2CFF BP020 2D01 BPQ30 

BPQ70 4668 BP080 466A BP100 

BP300 467B BP500 467D BRQ05 

BRQ20 4349 BRVGO 4320 BS010 

BSPCE CFFF * BYOOO 5000 BYQOC 

BY1Q0 500C BYBEF 0004 * BYCHK 

BYCI2 FE63 BVCIF 0004 * BYCKO 

BYFC2 0002 * BYFL1 FE67 BYFL2 

BYFRE 5006 BYGET 5018 BYIMS 

BYMF1 0008 * BYMF2 0020 BYMF3 

BYMOV 0001 * BYMS6 3C16 BYRAM 

BYZ01 FE62 BY202 FE61 BYZ03 

C2BUF 2E86 CAFLG FF67 CARIN 

CB020 2EA4 CB040 3348 CB100 

CB310 3370 CB320 3398 CB330 

CB360 33B2 CB370 33C1 CBASE 

CBLNK FF53 CBLTM FF52 CBLXF 

CCTLT 3437 COOOG 0099 C0050 

C011Q 3018 COCBP 3CE3 C&EXC 

COXXX 009F CEARL 0031 CEARS 

CEKCC 0040 * CER02 O0E1 CERLO 

CGBUF 3053 CH1Q0 2950 CHAIN 

CHAR FF88 CHKEU 2B76 CHNGO 

CHSAV FF98 CI020 28AE CI040 

CI104 500F CIADR FF33 CIBPT 

CICSM FF2A CIJMP FFEO CIL 

CINTR 2885 CIOFS 2B9E CIOKY 

CISPT FF31 CISTA FF29 CITRL 

CK1Q0 3927 CKCWO 3E0E CKEOF 

CKEVD 2B8C CKFMS OOOE CKFMT 

CKLIM 0016 CKLPM 2C21 CKRTN 

CLLCT 3440 CLLIM 0020 * CLPRT 

CLREO 3707 CLTAB 4160 CLTST 

CM040 29F1 CM100 2A40 CMAMS 

CMNO FF55 CM0N1 2A09 CNOIS 

CNMS6 3CAC COMMA 002C * COUNT 
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005 C 
0040 
0029 
FF5F 
0001 
FF38 
006F 
3064 
3069 
FFOO 
3093 
3001 
4403 
4427 
FF30 
FF80 
FF91 
2CE8 
OOOF 
0020 
4643 
4670 
432E 
2CEF 
FE5E 
2E3B 
2E35 
FE66 
0002 
0040 
FE67 
FE5F 
FF9C 
3358 
33A5 
OOFF 
0019 
3CFA 
0008 
0034 
OOEA 
00C9 
2933 
28B9 
FF2F 
0001 
0008 
FF2B 
2B70 
47C8 
FF86 
47AB 
FF75 
3CC7 
0001 
FF84 



A DEL 

ALTIO 

APHNM 

AT2BF 

AX 

B1STT 

B2DEC 

B2LEN 

B2STT 

BASE2 

BC040 

BC11Q 

B0020 

BD200 

BOEND 

BFBSY 

BKMDE 

8KSPX 

BLKSZ 

BP010 

BP050 

BP200 

BR010 

8SEH2 

BY010 

BYCI1 

BYFC1 

BYFL3 

BYINT 

BYMF4 

BYSRE 

C 

CB010 

CB300 

CB350 

CBDLY 

CBRKY 

C0100 

COVKY 

CEOIT 

CFLGS 

CHANG 

CHNG1 

CI1Q0 

CICNT 

CIKTO 

CIR 

CIVEC 

CKEVO 

CKFUO 

CLALT 

CLRCT 

CM020 

CMMON 

CNOTN 

CP100 



007 F 
0010 
00C7 
4144 
0041 
FF3A 
006C 
FF35 
FF37 
FEOG 
309A 
30D7 
4410 
4430 
FF3B 
0080 
0002 
2CF5 
0010 
463C 
465F 
4675 
433D 
OOFE 
2E41 
FE64 
0001 
FE65 
5015 
0080 
5009 
0001 
3330 
335A 
33A7 
0020 
OOQA 
3017 
3911 
00D5 
FFF8 
293C 
2939 
28BB 
FF2C 
0046 
0002 
FFE1 
2B82 
2B5B 
4144 
3462 
29E0 
FFFF 
36B1 
3FBB 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
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FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 
FILE 20 



CR030 

CRADV 

CRDIS 

CRLIO 

CRROW 

CSCAN 

CSTRT 

CTWON 

CTXFR 

CURPD 

CURPU 

CXB2D 

D2SND 

0B03Q 

DB099 

DB270 

DB410 

0B600 

DC03G 

DCKAR 

DFMS6 

DJHP1 

0JHS2 

DLWRP 

ON020 

DPB6N 

DPLIH 

OPSTR 

DSPC1 

DSPLY 

DTEST 

E 

EA5SO 

EB02O 

ECEND 

EDBAK 

EODSP 

EDROW 

EFINH 

ELADR 

EOL 

EPANO 

EPBF3 

ESC 

ETURP 

FBLKS 

FDLSO 

F0TB2 

FILL 

FLCHR 

FLINE 

FNHD1 

FP020 

FSALT 

FSTBL 

FTRAM 

FX 

GETIO 

GNOOO 

60 

6PTST 

GT035 

6TQ70 

6TADR 

STBSP 

6TPRM 

H 

HDERR 

HK400 

HLCNT 



3FFA 

00A8 

3CDA 

3FCF 

FFCO 

2B61 

2800 

29B7 

0002 

00B1 

Q0B4 

43C6 

0080 

44F0 

4520 

4583 

45B5 

45DA 

413A 

FF89 

3C56 

0001 

7806 

009C 

3EF5 

FFAA 

FBFF 

FE4F 

00D2 

0004 

0066 

0003 

3A87 

4474 

0013 

2C40 

0080 

FF20 

0080 

FF94 

OOCC 

005 2 

4488 

001 B 

0008 

FFAC 

00B7 

0037 

00C3 

FF8F 

FF9F 

000 E 

2CC4 

7029 

FF92 

9100 

0046 

4177 

36BC 

OOED 

2C89 

2F84 

2FC1 

FF73 

004 C 

2F59 

0004 

0004 

28FC 

FF51 



CR040 

CRCOL 

CRDLl 

CRPHB 

CRSET 

CSPEN 

CT1G0 

CTOFF 

CUER1 

CURPH 

C«T ST 

CXXXX 

DAOFF 

&B040 

DB100 

DB280 

DB420 

BBFTB 

BC2 

DCNUW 

BFSKY 

BJMP2 

BJMSK 

DMCTL 

DNBEV 

DPBTH 

BPLUS 

DPTYP 

DSPL1 

DSP ST 

DVFL6 

EA100 

EA580 

EB030 

ECFL6 

EDBLK 

EDIT 

EORST 

EFMS6 

ENDPR 

EOLMV 

EPBFO 

EPWSG 

ETB2B 

EVB 

FCLIM 

FDSEP 

FEBFS 

FILMS 

FLCM1 

FLHS6 

FNWD2 

FP100 

FSKSG 

FTBIN 

FTSND 

GAP 

&IOB0 

6N100 

6P010 

6T010 

GT040 

GT100 

GTCSM 

GTI01 

GTPT1 

HBLEN 

HDMSG 

HK500 

HLCTO 



4008 

FFC1 

00E7 

0028 

FF72 

FF77 

3754 

0080 

2E61 

0025 

373A 

007E 

0060 

4505 

452F 

4589 

45C3 

4156 

0012 

QOOA 

0008 

0002 

7805 

3D 28 

3EE4 

0040 

OOOD 

FFAE 

00E4 

FFFE 

FE7F 

3A50 

3AAF 

447D 

FFD1 

0007 

0010 

3956 

3C33 

00C1 

FF90 

4447 

3BE1 

0001 

0002 

OOAO 

00 C4 

3D4B 

3B7E 

2DF1 

3C7C 

OOOF 

2DF8 

3C95 

OOOA 

0020 

0020 

3D33 

36DA 

2CA9 

2F4D 

2F99 

2FD2 

2FD6 

417A 

3&5F 

OOOA 

3B78 

2906 

2920 



CR050 

CRCTO 

CRFK¥ 

CRPRT 

CRTRG 

CSTAT 

CTFAD 

CTRLO 

CUER2 

CURPL 

CWBSR 

D 

DB01Q 

DB060 

DB200 

DB300 

DB440 

DC010 

DC3 

DCRDX 

DIOFF 

DJMP3 

DLHOL 

DHERR 

DttDVO 

DPEND 

DPKSG 

DRMSG 

DSPLA 

DTATR 

DX 

EA500 

EA600 

EB050 

ECI»P 

EDBSP 

EDMS6 

EDTST 

EHLIW 

EOF 

EOMTF 

EPBF1 

ER050 

ETNSG 

EVDC 

FCPTY 

FDSP1 

FECMT 

FINHS 

FLCMP 

FLNUM 

FORGN 

FPS 

FSOUT 

FTCTL 

FVDMS 

GCTBT 

GIOBF 

GNKEY 

6P020 

GT020 

GT050 

GT320 

GTDAT 

GTLSB 

GTPTR 

HBTBL 

HD SHK 

HK600 

HNGUO 



5012 
3310 
FFA4 
0090 
0000 
FF66 
FFCE 
FF62 
2E73 
0084 
3732 
0002 
44DE 
4523 
4553 
4592 
45C7 
4128 
0013 
OOOA 
0010 
0004 
0010 
0001 
3EE7 
FFA8 
0004 
3C3F 
00C6 
0040 
0044 
3A60 
3AB4 
4484 
0008 
2DA4 
3B20 
Q006 
OGB F 
0001 
FFCD 
4449 
3301 
3B0F 
2 ODD 
0080 
2CB9 
002B 
3B49 
2DEE 
FF5E 
0080 
0004 
0010 
FF8A 
3B19 
2B50 
3D40 
36BF 
2CB3 
2F74 
2FA2 
3003 
2FB7 
2F8A 
3D5E 
FF78 
0040 
2911 
0061 



CRADR 

CRDIO 

CRIHS 

CRRET 

CRTRK 

CSTOR 

CTLCT 

CTUIN 

CUERR 

CURPR 

CX 

D2BUF 

DB020 

DB090 

DB250 

DB400 

DB500 

DCQ20 

DCERR 

DFLGS 

DJHPO 

DJKP4 

DLTRH 

DKNUS 

&P2BF 

DPFNC 

DPNUfl 
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NX 
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OTCMO 
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PO01O 
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PP020 

PP220 

PR120 
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30C7 
3DE0 
3E26 
3E0A 
30C0 
FF4C 
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46t7 
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ITFL6 

IW023 
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LP 
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LTOFR 
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N6PT2 
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NLGS2 
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NLTNS 
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